1600
|
How do I set a computated cell individually

Dim h
With Exg2antt1
.BeginUpdate()
.Columns.Add("Number")
.Columns.Add("Format")
With .Items
h = .AddItem("1.23")
.set_CellValueFormat(h,1,exontrol.EXG2ANTTLib.ValueFormatEnum.exComputedField)
.set_CellValue(h,1,"2 * %0 + ` (2 * Number)`")
h = .AddItem("1.23")
.set_CellValueFormat(h,1,exontrol.EXG2ANTTLib.ValueFormatEnum.exComputedField)
.set_CellValue(h,1,"3 * %0 + ` (3 * Number)`")
h = .AddItem("1.23")
.set_CellValueFormat(h,1,exontrol.EXG2ANTTLib.ValueFormatEnum.exComputedField)
.set_CellValue(h,1,"currency(%0) + ` ( Currency(Number) )`")
End With
.EndUpdate()
End With
|
1599
|
How can I hide a specific hour
With Exg2antt1
.BeginUpdate()
.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exAllLines
.Columns.Add("Default")
With .Chart
.AllowInsideZoom = True
.FirstWeekDay = exontrol.EXG2ANTTLib.WeekDayEnum.exMonday
.FirstVisibleDate = #3/31/2013#
.set_PaneWidth(False,52)
.LevelCount = 2
.UnitScale = exontrol.EXG2ANTTLib.UnitEnum.exHour
.get_Level(1).Label = "<font ;6><%h%></font>"
.UnitWidth = 14
.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exAllLines
.AllowInsideZoom = True
.DefaultInsideZoomFormat.InsideUnit = exontrol.EXG2ANTTLib.UnitEnum.exMinute
.AllowResizeInsideZoom = False
.InsideZoomOnDblClick = False
With .InsideZooms
.SplitBaseLevel = False
.DefaultWidth = 0
End With
With .InsideZooms
.Add(#3/31/2013 11:00:00 PM#)
End With
End With
With .Items
.AddItem("Item")
End With
.EndUpdate()
End With
|
1598
|
Is it possible to define the keys of the drop down values to be strings rather than numeric values
' Change event - Occurs when the user changes the cell's content.
Private Sub Exg2antt1_Change(ByVal sender As System.Object,ByVal Item As Integer,ByVal ColIndex As Integer,ByRef NewValue As Object) Handles Exg2antt1.Change
With Exg2antt1
Debug.Print( "NewValue is" )
Debug.Print( NewValue )
End With
End Sub
With Exg2antt1
With .Columns.Add("DropDownList-String").Editor
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.DropDownListType
.AddItem(1,"NYC|New York City")
.AddItem(2,"CJN|Cluj Napoca")
End With
With .Columns.Add("DropDownList-Numeric").Editor
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.DropDownListType
.AddItem(1,"New York City")
.AddItem(2,"Cluj Napoca")
End With
With .Items
.set_CellValue(.AddItem("NYC"),1,2)
End With
End With
|
1597
|
I have an edit field, when going to edit mode, the rightmost part is shown. Is it possible to show the left part instead

With Exg2antt1
.BeginUpdate()
With .Columns.Add("Edit")
.Width = 64
.AllowSizing = False
With .Editor
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.MaskType
.Mask = ";;;rich"
End With
End With
.Columns.Add("Empty")
With .Items
.AddItem("This is a bit ot long text")
.AddItem("")
End With
.EndUpdate()
End With
|
1596
|
I have a drop down field, the control shows the rightmost part of the selected caption. Is it possible to show the left part
Dim h
With Exg2antt1
.BeginUpdate()
With .Columns.Add("DropDown")
.Width = 64
.AllowSizing = False
With .Editor
.DropDownAlignment = &H20
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.DropDownType
.AddItem(1,"First item. This is a bit ot long text")
.AddItem(2,"Second item. This is a bit ot long text")
.AddItem(3,"Third item. This is a bit ot long text")
.Mask = ";;;rich"
End With
End With
With .Columns.Add("PickEdit")
.Width = 64
.AllowSizing = False
With .Editor
.DropDownAlignment = &H20
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.PickEditType
.AddItem(1,"First item. This is a bit ot long text")
.AddItem(2,"Second item. This is a bit ot long text")
.AddItem(3,"Third item. This is a bit ot long text")
.Mask = ";;;rich"
End With
End With
.Columns.Add("Empty")
With .Items
.set_CellValue(.AddItem("First item. This is a bit ot long text"),1,"Second item. This is a bit ot long text")
h = .AddItem("First item. This is a bit ot long text")
With .get_CellEditor(h,0)
.DropDownAlignment = &H20
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.DropDownType
.AddItem(1,"First item. This is a bit ot long text")
.AddItem(2,"Second item. This is a bit ot long text")
.AddItem(3,"Third item. This is a bit ot long text")
End With
.set_CellValue(h,1,"Second item. This is a bit ot long text")
With .get_CellEditor(h,1)
.DropDownAlignment = &H20
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.PickEditType
.AddItem(1,"First item. This is a bit ot long text")
.AddItem(2,"Second item. This is a bit ot long text")
.AddItem(3,"Third item. This is a bit ot long text")
End With
End With
.EndUpdate()
End With
|
1595
|
Is there a property for the back color of the dropdown field
With Exg2antt1
.BeginUpdate()
With .Columns.Add("Date").Editor
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.DateType
.set_Option(exontrol.EXG2ANTTLib.EditorOptionEnum.exDropDownBackColor,15790320)
.set_Option(exontrol.EXG2ANTTLib.EditorOptionEnum.exDropDownForeColor,65793)
End With
.Items.AddItem(#1/1/2001#)
.EndUpdate()
End With
|
1594
|
Is it possible to change a back color of the field/cell when it takes a focus
' EditClose event - Occurs when the edit operation ends.
Private Sub Exg2antt1_EditCloseEvent(ByVal sender As System.Object) Handles Exg2antt1.EditCloseEvent
With Exg2antt1
With .Items
.ClearCellBackColor(.FocusItem,Exg2antt1.FocusColumnIndex)
End With
End With
End Sub
' EditOpen event - Occurs when the edit operation starts.
Private Sub Exg2antt1_EditOpen(ByVal sender As System.Object) Handles Exg2antt1.EditOpen
With Exg2antt1
With .Items
.set_CellBackColor(.FocusItem,Exg2antt1.FocusColumnIndex,Color.FromArgb(255,0,0))
End With
With .Items
.set_CellValue(.FocusItem,Exg2antt1.FocusColumnIndex,Exg2antt1.Items.get_CellValue(Exg2antt1.Items.FocusItem,Exg2antt1.FocusColumnIndex))
End With
End With
End Sub
With Exg2antt1
.FullRowSelect = exontrol.EXG2ANTTLib.CellSelectEnum.exColumnSel
.Columns.Add("C1").Editor.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.EditType
.Columns.Add("C2").Editor.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.EditType
With .Items
.set_CellValue(.AddItem("v1"),1,"v2")
.set_CellValue(.AddItem("v3"),1,"v4")
End With
End With
|
1593
|
How can I display the current date mask, but still allow empty values

With Exg2antt1
.BeginUpdate()
.CauseValidateValue = exontrol.EXG2ANTTLib.ValidateValueType.exValidateCell
.FullRowSelect = exontrol.EXG2ANTTLib.CellSelectEnum.exColumnSel
.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exRowLines
With .Columns.Add("Date").Editor
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.DateType
.Mask = "!99/99/9999;1;;empty=1,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,warning=Invalid character!" & _
",select=4,overtype"
End With
With .Items
.AddItem()
.AddItem(#1/1/2001#)
.AddItem()
End With
.EndUpdate()
End With
|
1592
|
How can I align the days in a DateType editor
With Exg2antt1
.Columns.Add("DropDown")
With .Items
With .get_CellEditor(.AddItem(#1/1/2001#),0)
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.DateType
.DropDownAlignment = exontrol.EXG2ANTTLib.AlignmentEnum.RightAlignment
End With
With .get_CellEditor(.AddItem(#1/1/2001#),0)
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.DateType
.DropDownAlignment = exontrol.EXG2ANTTLib.AlignmentEnum.CenterAlignment
End With
With .get_CellEditor(.AddItem(#1/1/2001#),0)
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.DateType
.DropDownAlignment = exontrol.EXG2ANTTLib.AlignmentEnum.LeftAlignment
End With
With .get_CellEditor(.AddItem(#1/1/2001#),0)
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.DateType
.DropDownAlignment = &H20
End With
With .get_CellEditor(.AddItem(#1/1/2001#),0)
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.DateType
.DropDownAlignment = &H20 Or exontrol.EXG2ANTTLib.AlignmentEnum.CenterAlignment
End With
With .get_CellEditor(.AddItem(#1/1/2001#),0)
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.DateType
.DropDownAlignment = &H20 Or exontrol.EXG2ANTTLib.AlignmentEnum.RightAlignment
End With
End With
End With
|
1591
|
How can I align the drop down portion rather the inside captions
With Exg2antt1
.Columns.Add("DropDown").Editor.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.DateType
With .Items
With .get_CellEditor(.AddItem(#1/1/2001#),0)
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.DateType
.DropDownAlignment = &H20
End With
With .get_CellEditor(.AddItem(#1/1/2001#),0)
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.DateType
.DropDownAlignment = exontrol.EXG2ANTTLib.AlignmentEnum.exHOutside
End With
.AddItem(#1/1/2001#)
End With
End With
|
1590
|
Is it possible to show a message that the field is empty

With Exg2antt1
.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exRowLines
.FullRowSelect = exontrol.EXG2ANTTLib.CellSelectEnum.exColumnSel
With .Columns.Add("Float")
With .Editor
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.MaskType
.Mask = ";;;float,digits=0,grouping=,invalid=empty,warning=invalid character"
End With
End With
.Items.AddItem(192278)
.Items.AddItem(1000)
End With
|
1589
|
How can I mask a date

Dim h
With Exg2antt1
.BeginUpdate()
.CauseValidateValue = exontrol.EXG2ANTTLib.ValidateValueType.exValidateCell
.FullRowSelect = exontrol.EXG2ANTTLib.CellSelectEnum.exColumnSel
.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exRowLines
.Columns.Add("Date")
.Columns.Add("Mask")
With .Items
h = .AddItem(#1/1/2001#)
With .get_CellEditor(h,0)
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.DateType
.Mask = "{1,12}/{1,31}/{1950,2050};1;;select=1,warning=Invalid character!,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b" & _
">!,validateas=1"
End With
.set_CellValue(h,1,.get_CellEditor(h,0).Mask)
h = .AddItem(#1/1/2001#)
With .get_CellEditor(h,0)
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.DateType
.Mask = "!99/99/9999;1;;empty,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,warning=Invalid character!,s" & _
"elect=4,overtype"
End With
.set_CellValue(h,1,.get_CellEditor(h,0).Mask)
h = .AddItem(#1/1/2001#)
With .get_CellEditor(h,0)
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.DateType
.Mask = "!99/99/9999;;;empty,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,warning=Invalid character!,se" & _
"lect=4,overtype"
End With
.set_CellValue(h,1,.get_CellEditor(h,0).Mask)
h = .AddItem(#1/1/2001#)
With .get_CellEditor(h,0)
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.DateType
.Mask = "!99/99/9999;; ;select=4,overtype,empty,warning=Invalid character!,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</" & _
"b>!,validateas=1"
End With
.set_CellValue(h,1,.get_CellEditor(h,0).Mask)
h = .AddItem(#1/1/2001#)
With .get_CellEditor(h,0)
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.DateType
.Mask = "![0-9 ][0-9 ]/[0-9 ][0-9 ]/[0-9 ][0-9 ][0-9 ][0-9 ];1;;empty,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%m" & _
"ask%>'</b>!,warning=Invalid character!,select=4,leading= "
End With
.set_CellValue(h,1,.get_CellEditor(h,0).Mask)
h = .AddItem(#1/1/2001#)
.set_FormatCell(h,0,"len(value) ? shortdateF(value) : ``")
With .get_CellEditor(h,0)
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.DateType
.Mask = "!99/99/9999;1;;empty,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,warning=Invalid character!,s" & _
"elect=4,overtype,leading"
End With
.set_CellValue(h,1,.get_CellEditor(h,0).Mask)
h = .AddItem(#1/1/2001#)
.set_FormatCell(h,0,"len(value) ? shortdateF(value) : ``")
With .get_CellEditor(h,0)
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.DateType
.Mask = "!00/00/0000;1;;empty,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,warning=Invalid character!,s" & _
"elect=4,overtype,leading"
End With
.set_CellValue(h,1,.get_CellEditor(h,0).Mask)
h = .AddItem(#1/1/2001#)
.set_FormatCell(h,0,"len(value) ? shortdateF(value) : ``")
With .get_CellEditor(h,0)
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.DateType
.Mask = "!00/00/0000;;0;empty,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,warning=Invalid character!,s" & _
"elect=4,overtype"
End With
.set_CellValue(h,1,.get_CellEditor(h,0).Mask)
h = .AddItem(#1/1/2001#)
.set_FormatCell(h,0,"len(value) ? shortdateF(value) : ``")
With .get_CellEditor(h,0)
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.DateType
.Mask = "!00/00/0000;;;empty,validateas=1,invalid=Invalid date\, for the input mask <br><b>'<%mask%>'</b>!,warning=Invalid character!,se" & _
"lect=1,overtype"
End With
.set_CellValue(h,1,.get_CellEditor(h,0).Mask)
End With
.EndUpdate()
End With
|
1588
|
How can I display and edit an integer number to show grouping digits too ( no decimals)
With Exg2antt1
With .Columns.Add("Float")
.FormatColumn = "value format `0`"
With .Editor
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.MaskType
.Mask = ";;;float,digits=0"
End With
End With
.Items.AddItem(192278)
End With
|
1587
|
How can I display and edit a float number to show grouping digits too
With Exg2antt1
With .Columns.Add("Float")
.FormatColumn = "value format ``"
With .Editor
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.MaskType
.Mask = ";;;float"
End With
End With
.Items.AddItem(192278)
End With
|
1586
|
How can I mask a phone number

Dim h
With Exg2antt1
.CauseValidateValue = exontrol.EXG2ANTTLib.ValidateValueType.exValidateCell
.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exRowLines
.FullRowSelect = exontrol.EXG2ANTTLib.CellSelectEnum.exColumnSel
.Columns.Add("Phone").Editor.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.MaskType
With .Items
h = .AddItem()
With .get_CellEditor(h,0)
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.MaskType
.Mask = "!(999) 000 0000;1;;select=1,empty,overtype,warning=invalid characer,invalid=The value you entered isn't appropriate for the inp" & _
"ut mask <b>'<%mask%>'</b> specified for this field."
End With
h = .AddItem("0123")
With .get_CellEditor(h,0)
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.MaskType
.Mask = "!(999) 000 0000;2;;select=4"
End With
h = .AddItem("0123")
With .get_CellEditor(h,0)
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.MaskType
.Mask = "`Phone: `!(999) 000-0000"
End With
h = .AddItem("(074) 876-1222")
With .get_CellEditor(h,0)
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.MaskType
.Mask = "!(999) 000-0000;0"
End With
End With
End With
|
1585
|
Is it possible to display the ColorType fields using RGB format
Dim h
With Exg2antt1
.Columns.Add("Color").Editor.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.ColorType
With .Items
.AddItem(255)
h = .AddItem(255)
With .get_CellEditor(h,0)
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.ColorType
.Mask = "`RGB(`{0,255}\,{0,255}\,{0,255}`)`;;0"
End With
h = .AddItem(255)
With .get_CellEditor(h,0)
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.ColorType
.Mask = "`&H`XXXXXXXX`&`;;0;overtype,insertype,warning=Wrong!"
End With
h = .AddItem(255)
With .get_CellEditor(h,0)
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.ColorType
.Mask = "`0x`XX `0x`XX `0x`XX;;0;overtype,insertype,warning=Wrong!"
End With
h = .AddItem(255)
With .get_CellEditor(h,0)
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.ColorType
.Mask = "R{0,255} G{0,255} B{0,255};;0;overtype,insertype,warning=Wrong!"
End With
h = .AddItem(255)
With .get_CellEditor(h,0)
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.ColorType
.Mask = "`(hexa) RGB 0x`XXXXXX;;0;overtype,insertype,warning=Wrong!"
End With
h = .AddItem(255)
With .get_CellEditor(h,0)
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.ColorType
.Mask = "`(decimal) Red: `{0,255}` Green: `{0,255}` Blue: `{0,255};;0;overtype,insertype,warning=Wrong!"
End With
h = .AddItem(255)
With .get_CellEditor(h,0)
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.ColorType
.Mask = "`(combine) Red: `{0,255}` Green: 0x`XX` Blue: `{0,255};;0;overtype,insertype,warning=Wrong!"
End With
End With
End With
|
1584
|
How can I specify a different color for bars that cross over the non-working part of the chart

With Exg2antt1
.Columns.Add("Task")
With .Chart.Bars
.Copy("Task","STask").Color = Color.FromArgb(255,0,0)
.Add("Task:STask").Shortcut = "TS"
End With
With .Chart
.set_PaneWidth(False,96)
.FirstVisibleDate = #1/1/2001#
.NonworkingDaysColor = .Bars.Item("STask").Color
End With
With .Items
.AddBar(.AddItem("Task 1"),"TS",#1/2/2001#,#1/16/2001#)
End With
End With
|
1583
|
How can I merge two columns

' AddItem event - Occurs after a new Item has been inserted to Items collection.
Private Sub Exg2antt1_AddItem(ByVal sender As System.Object,ByVal Item As Integer) Handles Exg2antt1.AddItem
With Exg2antt1
.Items.set_CellMerge(Item,0,1)
End With
End Sub
With Exg2antt1
.MarkSearchColumn = False
.TreeColumnIndex = -1
.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exAllLines
.Columns.Add("C1").set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellSingleLine,False)
.Columns.Add("C2")
.Columns.Add("C3")
With .Items
.AddItem("This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines.")
.AddItem("This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines.")
End With
End With
|
1582
|
How can I expand an item once the user clicks the column's checkbox

' CellStateChanged event - Fired after cell's state has been changed.
Private Sub Exg2antt1_CellStateChanged(ByVal sender As System.Object,ByVal Item As Integer,ByVal ColIndex As Integer) Handles Exg2antt1.CellStateChanged
With Exg2antt1
With .Items
.set_ExpandItem(Item,False)
End With
End With
End Sub
Dim h,hChild
With Exg2antt1
.BeginUpdate()
With .Columns
With .Add("")
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox,True)
.AllowSizing = False
.Width = 18
.PartialCheck = True
End With
.Add("Tasks")
End With
.ShowFocusRect = False
.HasButtons = exontrol.EXG2ANTTLib.ExpandButtonEnum.exNoButtons
.TreeColumnIndex = 1
.Indent = 14
.ExpandOnDblClick = False
.LinesAtRoot = exontrol.EXG2ANTTLib.LinesAtRootEnum.exNoLinesAtRoot
With .Items
h = .AddItem("")
.set_CellState(h,0,1)
.set_CellValue(h,1,"Project")
hChild = .InsertItem(h,Nothing,"")
.set_CellValue(hChild,1,"Task 1")
hChild = .InsertItem(h,Nothing,"")
.set_CellValue(hChild,1,"Task 2")
.set_ExpandItem(h,True)
End With
.EndUpdate()
End With
|
1581
|
How can I define a column with check-box
Dim h,hChild
With Exg2antt1
.BeginUpdate()
With .Columns
With .Add("")
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellHasCheckBox,True)
.AllowSizing = False
.Width = 18
.PartialCheck = True
End With
.Add("Tasks")
End With
.ShowFocusRect = False
.HasButtons = exontrol.EXG2ANTTLib.ExpandButtonEnum.exNoButtons
.TreeColumnIndex = 1
.Indent = 14
.ExpandOnDblClick = False
.LinesAtRoot = exontrol.EXG2ANTTLib.LinesAtRootEnum.exNoLinesAtRoot
With .Items
h = .AddItem("")
.set_CellState(h,0,1)
.set_CellValue(h,1,"Project")
hChild = .InsertItem(h,Nothing,"")
.set_CellValue(hChild,1,"Task 1")
hChild = .InsertItem(h,Nothing,"")
.set_CellValue(hChild,1,"Task 2")
.set_ExpandItem(h,True)
End With
.EndUpdate()
End With
|
1580
|
We need to know how it's possibile to have the bars on the same line and not in a different line

Dim h
With Exg2antt1
.BeginUpdate()
.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exAllLines
With .Chart
.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exAllLines
.FirstVisibleDate = #1/1/2002#
.Bars.Item("Task").OverlaidType = exontrol.EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStackAutoArrange Or exontrol.EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsStack
.set_PaneWidth(False,128)
End With
.Columns.Add("Task")
With .Items
h = .AddItem("Tasks")
.AddBar(h,"Task",#1/2/2002#,#1/7/2002#,"A")
.AddBar(h,"Task",#1/3/2002#,#1/8/2002#,"B")
.AddBar(h,"Task",#1/4/2002#,#1/9/2002#,"C")
.set_ItemBar(h,"A",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarColor,255)
.AddLink("AB",h,"A",h,"B")
.AddLink("BC",h,"B",h,"C")
End With
.EndUpdate()
End With
|
1579
|
The Change event gets me the today date. How can I find what user typed
' Change event - Occurs when the user changes the cell's content.
Private Sub Exg2antt1_Change(ByVal sender As System.Object,ByVal Item As Integer,ByVal ColIndex As Integer,ByRef NewValue As Object) Handles Exg2antt1.Change
With Exg2antt1
Debug.Print( "NewValue:" )
Debug.Print( NewValue )
Debug.Print( "EditingValue:" )
Debug.Print( .EditingText )
End With
End Sub
With Exg2antt1
.BeginUpdate()
.Chart.set_PaneWidth(True,0)
.Columns.Add("Edit").Editor.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.DateType
.Items.AddItem(#1/1/2001#)
.EndUpdate()
End With
|
1578
|
How can I add a footer row
Dim h
With Exg2antt1
.ShowLockedItems = True
.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exVLines
.Columns.Add("C1")
.Columns.Add("C2")
With .Items
.set_LockedItemCount(exontrol.EXG2ANTTLib.VAlignmentEnum.exBottom,1)
h = .get_LockedItem(exontrol.EXG2ANTTLib.VAlignmentEnum.exBottom,0)
.set_ItemBackColor(h,Color.FromArgb(128,128,128))
.set_ItemForeColor(h,Color.FromArgb(255,255,255))
.set_CellValue(h,0,"footer c1")
.set_CellValue(h,1,"footer c2")
.set_CellValue(.AddItem("cell"),1,"cell")
End With
End With
|
1577
|
How can I add a header row
Dim h
With Exg2antt1
.ShowLockedItems = True
.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exVLines
.Columns.Add("C1")
.Columns.Add("C2")
With .Items
.set_LockedItemCount(exontrol.EXG2ANTTLib.VAlignmentEnum.exTop,1)
h = .get_LockedItem(exontrol.EXG2ANTTLib.VAlignmentEnum.exTop,0)
.set_ItemBackColor(h,Color.FromArgb(128,128,128))
.set_ItemForeColor(h,Color.FromArgb(255,255,255))
.set_CellValue(h,0,"footer c1")
.set_CellValue(h,1,"footer c2")
.set_CellValue(.AddItem("cell"),1,"cell")
End With
End With
|
1576
|
How can I fix a column, while other sizable and fill the control's client
With Exg2antt1
.ColumnAutoResize = True
.Columns.Add("Sizable")
With .Columns.Add("F")
.AllowSizing = False
.Width = 16
End With
End With
|
1575
|
How can I programmatically add more columns to the sort bar and other to be sorted, but not included in the sort bar

With Exg2antt1
.SortBarVisible = True
With .Columns
.Add(0)
.Add(1)
.Add(2)
.Add(3)
.Add(4)
End With
.Layout = "multiplesort=""C3:1 C4:2"";singlesort=""C2:1"""
End With
|
1574
|
I'm using different bar types, in order to use different colours. The problem I'm having is that when two bars of different types overlap, and should in the histogram show as overallocated, they instead overlap here too, and show as single unit. Is there a way I can correctly show this as an overallocation

Dim h
With Exg2antt1
With .Chart
.FirstVisibleDate = #1/1/2001#
.HistogramVisible = True
.HistogramHeight = 32
.Bars.Item("Task").HistogramPattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternBDiagonal
.set_PaneWidth(False,128)
End With
.Columns.Add("Column")
With .Items
.AddBar(.AddItem("Item 1"),"Task",#1/2/2001#,#1/4/2001#)
h = .AddItem("Item 2")
.AddBar(h,"Task",#1/3/2001#,#1/7/2001#)
.set_ItemBar(h,"",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarColor,255)
.AddBar(.AddItem("Item 3"),"Task",#1/6/2001#,#1/9/2001#)
End With
End With
|
1573
|
Is it possible to assign a different EBN to a specified bar

Dim h
With Exg2antt1
.BeginUpdate()
With .VisualAppearance
.Add(1,"c:\exontrol\images\normal.ebn")
.Add(2,"c:\exontrol\images\pushed.ebn")
End With
With .Chart
.FirstVisibleDate = #1/1/2001#
.set_PaneWidth(False,128)
End With
.Columns.Add("Tasks")
With .Items
h = .AddItem("Task 1")
.AddBar(h,"Task",#1/2/2001#,#1/4/2001#)
h = .AddItem("Task 2")
.AddBar(h,"Task",#1/2/2001#,#1/4/2001#)
.set_ItemBar(h,"",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarColor,255)
h = .AddItem("Task 3")
.AddBar(h,"Task",#1/2/2001#,#1/4/2001#)
.set_ItemBar(h,"",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarColor,16777216)
h = .AddItem("Task 4")
.AddBar(h,"Task",#1/2/2001#,#1/4/2001#)
.set_ItemBar(h,"",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarColor,16777471)
h = .AddItem("Task 5")
.AddBar(h,"Task",#1/2/2001#,#1/4/2001#)
.set_ItemBar(h,"",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarColor,33619967)
End With
.EndUpdate()
End With
|
1572
|
How can I provide a mask for a date column
' Change event - Occurs when the user changes the cell's content.
Private Sub Exg2antt1_Change(ByVal sender As System.Object,ByVal Item As Integer,ByVal ColIndex As Integer,ByRef NewValue As Object) Handles Exg2antt1.Change
With Exg2antt1
Debug.Print( "Prev Value " )
Debug.Print( .Items.get_CellValue(Item,ColIndex) )
Debug.Print( "Check and Update the NewValue" )
Debug.Print( NewValue )
NewValue = #1/1/2001#
End With
End Sub
With Exg2antt1
.BeginUpdate()
.MarkSearchColumn = False
With .Columns.Add("Date")
.FormatColumn = "day(value) + `/` + month(value) + `/` + year(value)"
With .Editor
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.DateType
.Mask = "{1,12}\/{1,31}\/{1,2099}"
End With
End With
.Items.AddItem(#1/1/2001#)
.EndUpdate()
End With
|
1571
|
I am trying to introduce a custom tool tip to those particular cells. I have it working and I know I can style the font etc. however, what I would like to do is style the tooltip container itself like add some padding or add a border color. Is this possible
With Exg2antt1
.ToolTipDelay = 1
.ToolTipWidth = 364
.VisualAppearance.Add(1,"C:\Program Files\Exontrol\ExG2antt\Sample\EBN\frame.ebn")
.set_Background32(exontrol.EXG2ANTTLib.BackgroundPartEnum.exToolTipAppearance,&H1000000)
.Columns.Add("tootip").ToolTip = "this is a tooltip assigned to a column"
End With
|
1570
|
Is it possible to edit a float number without using of e/E/d/D (exponent) and +/- (signs) characters
With Exg2antt1
With .Columns.Add("Edit").Editor
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.EditType
.Numeric = exontrol.EXG2ANTTLib.NumericEnum.exDisableSigns Or exontrol.EXG2ANTTLib.NumericEnum.exFloatInteger
End With
.Items.AddItem(1.22)
End With
|
1569
|
How can I edit a float number with no using of e/E/d/D and + character
With Exg2antt1
With .Columns.Add("Edit").Editor
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.EditType
.Numeric = exontrol.EXG2ANTTLib.NumericEnum.exDisablePlus Or exontrol.EXG2ANTTLib.NumericEnum.exFloatInteger
End With
.Items.AddItem(1.22)
End With
|
1568
|
Is it possible to edit a float number with no using of e/E/d/D (exponent) characters
With Exg2antt1
With .Columns.Add("Edit").Editor
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.EditType
.Numeric = exontrol.EXG2ANTTLib.NumericEnum.exFloatInteger
End With
.Items.AddItem(1.22)
End With
|
1567
|
How can I edit an integer with no using of +/- signs
With Exg2antt1
With .Columns.Add("Edit").Editor
.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.EditType
.Numeric = &Hfc Or exontrol.EXG2ANTTLib.NumericEnum.exDisableSigns Or exontrol.EXG2ANTTLib.NumericEnum.exFloatInteger Or exontrol.EXG2ANTTLib.NumericEnum.exFloat
End With
.Items.AddItem(1)
End With
|
1566
|
When I'm trying to show string with "line break" character (vbCrLF) in a textbox, it shows 2 squares. Is there any way to hide these squares

With Exg2antt1
With .Columns
.Add("Value")
With .Add("CellSingleLine = False")
.ComputedField = "%0"
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellSingleLine,False)
End With
With .Add("FormatColumn/replace CRLF")
.ComputedField = "%0"
.FormatColumn = "value replace `\r\n` with ``"
End With
With .Add("FormatColumn/replace TAB,CRLF")
.ComputedField = "%0"
.FormatColumn = "(value replace `\t` with ``) replace `\r\n` with ``"
End With
End With
With .Items
.AddItem("a\ta\r\nb\tb")
End With
End With
|
1565
|
I am using the Chart.ShowLinksColor property, the question is it is possible to prevent changing the bar's color

Dim h1,h2,h3
With Exg2antt1
.BeginUpdate()
.DefaultItemHeight = 24
.Columns.Add("Task")
With .Chart
.LevelCount = 2
.FirstVisibleDate = #1/1/2001#
.set_PaneWidth(False,48)
.NonworkingDays = 0
.LinksStyle = exontrol.EXG2ANTTLib.LinkStyleEnum.exLinkSolid
.set_ShowLinksColor(exontrol.EXG2ANTTLib.ShowLinksEnum.exUpdateColorLinksOnly Or exontrol.EXG2ANTTLib.ShowLinksEnum.exShowLinksStartFrom,Color.FromArgb(255,0,0))
.set_ShowLinksColor(exontrol.EXG2ANTTLib.ShowLinksEnum.exUpdateColorLinksOnly Or exontrol.EXG2ANTTLib.ShowLinksEnum.exShowLinksEndTo,Color.FromArgb(0,255,0))
End With
With .Items
h1 = .AddItem("Task 1")
.AddBar(h1,"Task",#1/2/2001#,#1/4/2001#,"")
h2 = .AddItem("Task 2")
.AddBar(h2,"Task",#1/2/2001#,#1/4/2001#,"")
.set_ItemBar(h2,"",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarSelected,True)
.AddLink("L1",h1,"",h2,"")
h3 = .AddItem("Task 3")
.AddBar(h3,"Task",#1/2/2001#,#1/4/2001#,"")
.AddLink("L2",h2,"",h3,"")
.SchedulePDM(0,"")
End With
.EndUpdate()
End With
|
1564
|
Apparently, the links are shown on the back. Is there any option to bring them in front

Dim h1,h2
With Exg2antt1
.BeginUpdate()
.Columns.Add("Tasks")
With .Chart
.FirstVisibleDate = #9/19/2006#
.set_PaneWidth(False,64)
.NonworkingDaysPattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternSolid
.ShowLinks = exontrol.EXG2ANTTLib.ShowExtendedLinksEnum.exShowLinksFront Or exontrol.EXG2ANTTLib.ShowExtendedLinksEnum.exShowExtendedLinks
End With
With .Items
h1 = .AddItem("Task 1")
.AddBar(h1,"Task",#9/20/2006#,#9/22/2006#)
h2 = .AddItem("Task 2")
.AddBar(h2,"Task",#9/26/2006#,#9/28/2006#)
.set_ItemBar(h2,"",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarSelected,True)
.AddLink("L1",h1,"",h2,"")
.set_Link("L1",exontrol.EXG2ANTTLib.LinkPropertyEnum.exLinkText,"L1")
End With
.EndUpdate()
End With
|
1563
|
How can I enable the extended links feature

Dim h1,h2,h3
With Exg2antt1
.BeginUpdate()
.DefaultItemHeight = 24
.Columns.Add("Task")
With .Chart
.LevelCount = 2
.FirstVisibleDate = #1/1/2001#
.set_PaneWidth(False,48)
.NonworkingDays = 0
.LinksStyle = exontrol.EXG2ANTTLib.LinkStyleEnum.exLinkSolid
.ShowLinks = exontrol.EXG2ANTTLib.ShowExtendedLinksEnum.exShowExtendedLinks
End With
With .Items
h1 = .AddItem("Task 1")
.AddBar(h1,"Task",#1/2/2001#,#1/4/2001#,"")
h2 = .AddItem("Task 2")
.AddBar(h2,"Task",#1/2/2001#,#1/4/2001#,"")
.AddLink("L1",h1,"",h2,"")
h3 = .AddItem("Task 3")
.AddBar(h3,"Task",#1/2/2001#,#1/4/2001#,"")
.AddLink("L2",h3,"",h2,"")
.SchedulePDM(0,"")
End With
.EndUpdate()
End With
|
1562
|
How do I count all bars in the chart
Dim hSummary,hTask
With Exg2antt1
.BeginUpdate()
.Columns.Add("Task")
With .Chart
.set_PaneWidth(False,128)
.FirstVisibleDate = #1/1/2001#
End With
With .Items
hSummary = .AddItem("Task")
.AddBar(hSummary,"Task",#1/2/2001#,#1/5/2001#,"K1")
hTask = .InsertItem(hSummary,Nothing,"Task A")
.AddBar(hTask,"Task",#1/2/2001#,#1/5/2001#,"K1")
.AddBar(.InsertItem(hTask,Nothing,"Task A.1"),"Task",#1/3/2001#,#1/5/2001#,"K11")
.AddBar(.InsertItem(hTask,Nothing,"Task A.2"),"Task",#1/3/2001#,#1/5/2001#,"K12")
hTask = .InsertItem(hSummary,Nothing,"Task B")
.AddBar(hTask,"Task",#1/2/2001#,#1/5/2001#,"K2")
hTask = .InsertItem(hTask,Nothing,"Task B.1")
.AddBar(hTask,"Task",#1/5/2001#,#1/9/2001#,"K21")
.set_ExpandItem(0,True)
Debug.Print( "Count: " )
Debug.Print( .get_ItemBar(0,"<*>",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarsCount) )
End With
.EndUpdate()
End With
|
1561
|
Is there any property to count the all child bars of a specified item ( all descendents )
Dim hSummary,hTask
With Exg2antt1
.BeginUpdate()
.Columns.Add("Task")
With .Chart
.set_PaneWidth(False,128)
.FirstVisibleDate = #1/1/2001#
.Bars.Copy("Task","CountTask").Color = Color.FromArgb(0,255,0)
End With
With .Items
hSummary = .AddItem("Project")
.set_ItemBold(hSummary,True)
hTask = .InsertItem(hSummary,Nothing,"Task A")
.AddBar(hTask,"CountTask",#1/2/2001#,#1/5/2001#,"K1")
.AddBar(.InsertItem(hTask,Nothing,"Task A.1"),"CountTask",#1/3/2001#,#1/5/2001#,"K11")
.AddBar(.InsertItem(hTask,Nothing,"Task A.2"),"CountTask",#1/3/2001#,#1/5/2001#,"K12")
hTask = .InsertItem(hSummary,Nothing,"Task B")
.AddBar(hTask,"CountTask",#1/2/2001#,#1/5/2001#,"K2")
hTask = .InsertItem(hTask,Nothing,"Task B.1")
.AddBar(hTask,"CountTask",#1/5/2001#,#1/9/2001#,"K21")
.set_ExpandItem(0,True)
.DefaultItem = .get_ItemByIndex(0)
Debug.Print( "Count: " )
Debug.Print( .get_ItemBar(-3,"<*>",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarsCount) )
.DefaultItem = 0
End With
.EndUpdate()
End With
|
1560
|
Is there any property to count the child bars of a specified item ( leaf descendents )
Dim hSummary,hTask
With Exg2antt1
.BeginUpdate()
.Columns.Add("Task")
With .Chart
.set_PaneWidth(False,128)
.FirstVisibleDate = #1/1/2001#
.Bars.Copy("Task","CountTask").Color = Color.FromArgb(0,255,0)
End With
With .Items
hSummary = .AddItem("Project")
.set_ItemBold(hSummary,True)
hTask = .InsertItem(hSummary,Nothing,"Task A")
.AddBar(hTask,"Task",#1/2/2001#,#1/5/2001#,"K1")
.AddBar(.InsertItem(hTask,Nothing,"Task A.1"),"CountTask",#1/3/2001#,#1/5/2001#,"K11")
.AddBar(.InsertItem(hTask,Nothing,"Task A.2"),"CountTask",#1/3/2001#,#1/5/2001#,"K12")
hTask = .InsertItem(hSummary,Nothing,"Task B")
.AddBar(hTask,"Task",#1/2/2001#,#1/5/2001#,"K2")
hTask = .InsertItem(hTask,Nothing,"Task B.1")
.AddBar(hTask,"CountTask",#1/5/2001#,#1/9/2001#,"K21")
.set_ExpandItem(0,True)
.DefaultItem = .get_ItemByIndex(0)
Debug.Print( "Count: " )
Debug.Print( .get_ItemBar(-2,"<*>",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarsCount) )
.DefaultItem = 0
End With
.EndUpdate()
End With
|
1559
|
Is there any property to count the child bars of a specified item ( direct descendents )
Dim hSummary,hTask
With Exg2antt1
.BeginUpdate()
.Columns.Add("Task")
With .Chart
.set_PaneWidth(False,128)
.FirstVisibleDate = #1/1/2001#
.Bars.Copy("Task","CountTask").Color = Color.FromArgb(0,255,0)
End With
With .Items
hSummary = .AddItem("Project")
.set_ItemBold(hSummary,True)
hTask = .InsertItem(hSummary,Nothing,"Task A")
.AddBar(hTask,"CountTask",#1/2/2001#,#1/5/2001#,"K1")
.AddBar(.InsertItem(hTask,Nothing,"Task A.1"),"Task",#1/3/2001#,#1/5/2001#,"K11")
.AddBar(.InsertItem(hTask,Nothing,"Task A.2"),"Task",#1/3/2001#,#1/5/2001#,"K12")
hTask = .InsertItem(hSummary,Nothing,"Task B")
.AddBar(hTask,"CountTask",#1/2/2001#,#1/5/2001#,"K2")
hTask = .InsertItem(hTask,Nothing,"Task B.1")
.AddBar(hTask,"Task",#1/5/2001#,#1/9/2001#,"K21")
.set_ExpandItem(0,True)
.DefaultItem = .get_ItemByIndex(0)
Debug.Print( "Count: " )
Debug.Print( .get_ItemBar(-1,"<*>",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarsCount) )
.DefaultItem = 0
End With
.EndUpdate()
End With
|
1558
|
How can I define all child items to belong to a summary bar (DefineSummaryBars-3)

Dim hSummary,hTask
With Exg2antt1
.BeginUpdate()
.Columns.Add("Task")
With .Chart
.set_PaneWidth(False,128)
.FirstVisibleDate = #1/1/2001#
End With
With .Items
hSummary = .AddItem("Summary")
.AddBar(hSummary,"Summary",#1/2/2001#,#1/2/2001#,"")
hTask = .InsertItem(hSummary,Nothing,"Task A")
.AddBar(hTask,"Task",#1/2/2001#,#1/5/2001#,"K1")
hTask = .InsertItem(hTask,Nothing,"Task A.1")
.AddBar(hTask,"Task",#1/3/2001#,#1/5/2001#,"K11")
hTask = .InsertItem(hSummary,Nothing,"Task B")
.AddBar(hTask,"Task",#1/2/2001#,#1/5/2001#,"K2")
hTask = .InsertItem(hTask,Nothing,"Task B.1")
.AddBar(hTask,"Task",#1/5/2001#,#1/9/2001#,"K21")
.DefineSummaryBars(hSummary,"",-3,"<K*>")
.set_ExpandItem(0,True)
End With
.EndUpdate()
End With
|
1557
|
Can I define automatically the leaf descendents of the summary bar (DefineSummaryBars-2)

Dim hSummary,hTask
With Exg2antt1
.BeginUpdate()
.Columns.Add("Task")
With .Chart
.set_PaneWidth(False,128)
.FirstVisibleDate = #1/1/2001#
End With
With .Items
hSummary = .AddItem("Summary")
.AddBar(hSummary,"Summary",#1/2/2001#,#1/2/2001#,"")
hTask = .InsertItem(hSummary,Nothing,"Task A")
.AddBar(hTask,"1Task",#1/2/2001#,#1/5/2001#,"K1")
hTask = .InsertItem(hTask,Nothing,"Task A.1")
.AddBar(hTask,"Task",#1/3/2001#,#1/5/2001#,"K11")
hTask = .InsertItem(hSummary,Nothing,"Task B")
.AddBar(hTask,"1Task",#1/2/2001#,#1/5/2001#,"K2")
hTask = .InsertItem(hTask,Nothing,"Task B.1")
.AddBar(hTask,"Task",#1/5/2001#,#1/9/2001#,"K21")
.DefineSummaryBars(hSummary,"",-2,"<K*>")
.set_ExpandItem(0,True)
End With
.EndUpdate()
End With
|
1556
|
How can I assign the childs bars to a summary bar (DefineSummaryBars-1)

Dim hSummary,hTask
With Exg2antt1
.BeginUpdate()
.Columns.Add("Task")
With .Chart
.set_PaneWidth(False,128)
.FirstVisibleDate = #1/1/2001#
End With
With .Items
hSummary = .AddItem("Summary")
.AddBar(hSummary,"Summary",#1/2/2001#,#1/2/2001#,"")
hTask = .InsertItem(hSummary,Nothing,"Task A")
.AddBar(hTask,"Task",#1/2/2001#,#1/5/2001#,"K1")
hTask = .InsertItem(hSummary,Nothing,"Task B")
.AddBar(hTask,"Task",#1/4/2001#,#1/8/2001#,"K2")
.set_ExpandItem(hSummary,True)
.DefineSummaryBars(hSummary,"",-1,"<*>")
End With
.EndUpdate()
End With
|
1555
|
Is it possible to define a summary bar to include all bars in the chart (DefineSummaryBars-0)

Dim hSummary
With Exg2antt1
.BeginUpdate()
.Columns.Add("Task")
With .Chart
.set_PaneWidth(False,128)
.FirstVisibleDate = #1/1/2001#
End With
With .Items
hSummary = .AddItem("Summary")
.AddBar(hSummary,"Summary",#1/2/2001#,#1/2/2001#,"summary")
.AddBar(.AddItem("Task A"),"Task",#1/2/2001#,#1/5/2001#,"K1")
.AddBar(.AddItem("Task B"),"Task",#1/6/2001#,#1/9/2001#,"K2")
.AddBar(.AddItem("Task C"),"Task",#1/11/2001#,#1/14/2001#,"K3")
.DefineSummaryBars(hSummary,"summary",0,"<K*>")
End With
.EndUpdate()
End With
|
1554
|
Is there any way to "unselect" radio group
' DblClick event - Occurs when the user dblclk the left mouse button over an object.
Private Sub Exg2antt1_DblClick(ByVal sender As System.Object,ByVal Shift As Short,ByVal X As Integer,ByVal Y As Integer) Handles Exg2antt1.DblClick
Dim h
With Exg2antt1
With .Items
h = .get_CellChecked(1234)
.set_CellHasCheckBox(0,h,True)
.set_CellState(0,h,0)
.set_CellHasCheckBox(0,h,False)
End With
End With
End Sub
' SelectionChanged event - Fired after a new item has been selected.
Private Sub Exg2antt1_SelectionChanged(ByVal sender As System.Object) Handles Exg2antt1.SelectionChanged
With Exg2antt1
With .Items
.set_CellState(.FocusItem,0,1)
End With
End With
End Sub
Dim h
With Exg2antt1
.MarkSearchColumn = False
.SelBackColor = Color.FromArgb(255,255,128)
.SelForeColor = Color.FromArgb(0,0,0)
.Columns.Add("Default")
With .Items
h = .AddItem("Radio 1")
.set_CellHasRadioButton(h,0,True)
.set_CellRadioGroup(h,0,1234)
h = .AddItem("Radio 2")
.set_CellHasRadioButton(h,0,True)
.set_CellRadioGroup(h,0,1234)
.set_CellState(h,0,1)
h = .AddItem("Radio 3")
.set_CellHasRadioButton(h,0,True)
.set_CellRadioGroup(h,0,1234)
End With
End With
|
1553
|
The Column.Alignment property does not seem to work for cells with images in them. What can be done
With Exg2antt1
.BeginUpdate()
.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
.TreeColumnIndex = -1
.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exAllLines
.HeaderHeight = 24
.DefaultItemHeight = 24
With .Columns.Add("Image")
.AllowSizing = False
.Width = 32
.HTMLCaption = "<img>1</img>"
.HeaderAlignment = exontrol.EXG2ANTTLib.AlignmentEnum.CenterAlignment
.Alignment = exontrol.EXG2ANTTLib.AlignmentEnum.CenterAlignment
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellValueFormat,1)
End With
.Columns.Add("Rest")
With .Items
.AddItem("<img>1</img>")
.AddItem("<img>2</img>")
.AddItem("<img>3</img>")
End With
.EndUpdate()
End With
|
1552
|
Is there any way to determine in a bar would overlay another bar or to not allow this and get some error indication

' BarResize event - Occurs when a bar is moved or resized.
Private Sub Exg2antt1_BarResize(ByVal sender As System.Object,ByVal Item As Integer,ByVal Key As Object) Handles Exg2antt1.BarResize
With Exg2antt1
.Refresh()
End With
End Sub
Dim h
With Exg2antt1
.BeginUpdate()
.DefaultItemHeight = 22
.Columns.Add("InterectBars")
With .Chart
.set_PaneWidth(False,48)
.FirstVisibleDate = #1/1/2001#
With .Bars.Item("Task")
.OverlaidType = exontrol.EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsIntersect
.set_Overlaid(exontrol.EXG2ANTTLib.OverlaidBarsTypeEnum.exOverlaidBarsIntersect,"ERROR")
End With
With .Bars.Add("ERROR")
.Color = Color.FromArgb(255,0,0)
.Pattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternSolid
.Height = 7
End With
End With
With .Items
h = .AddItem("")
.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"A","A")
.AddBar(h,"Task",#1/3/2001#,#1/5/2001#,"B","B")
.set_CellValue(h,0,.get_IntersectBars(h,"A",h,"B"))
h = .AddItem("")
.AddBar(h,"Task",#1/6/2001#,#1/9/2001#,"A","A")
.AddBar(h,"Task",#1/10/2001#,#1/13/2001#,"B","B")
.set_CellValue(h,0,.get_IntersectBars(h,"A",h,"B"))
h = .AddItem("")
.AddBar(h,"Task",#1/6/2001#,#1/9/2001#,"B","B")
.AddBar(h,"Task",#1/10/2001#,#1/13/2001#,"A","A")
.set_CellValue(h,0,.get_IntersectBars(h,"A",h,"B"))
End With
.EndUpdate()
End With
|
1551
|
Is it possible to change the font size of the header compared to that of the control. I would like to make the font of the headers smaller
With Exg2antt1
.BeginUpdate()
.HeaderHeight = 32
With .Columns
With .Add("ID")
.HTMLCaption = "<font ;16>ID"
.Width = 32
.AllowSizing = False
End With
.Add("Task").HTMLCaption = "<font ;16>Task"
End With
.FocusColumnIndex = 1
.ShowFocusRect = False
.Chart.set_PaneWidth(True,0)
With .Items
.set_CellValue(.AddItem(1),1,"Task A")
.set_CellValue(.AddItem(2),1,"Task B")
End With
.EndUpdate()
End With
|
1550
|
How can I create items and bars at runtime
With Exg2antt1
.BeginUpdate()
With .Columns
With .Add("ID")
.FormatColumn = "1 index ''"
.Width = 32
.AllowSizing = False
End With
.Add("Task").Editor.EditType = exontrol.EXG2ANTTLib.EditTypeEnum.EditType
End With
.FocusColumnIndex = 1
.ShowFocusRect = False
With .Chart
.set_PaneWidth(False,128)
.FirstVisibleDate = #1/1/2001#
.AllowCreateBar = exontrol.EXG2ANTTLib.CreateBarEnum.exCreateBarAuto
End With
Exg2antt1.Template = "Chart.Bars(""Task""){Def(3) = ""<%=%C1%>"";Def(4)=18}"
.EndUpdate()
End With
|
1549
|
How can I a group summary bar with a task bar, so when the summary bar changes the task bar will move accordingly

Dim hSummary,hTask
With Exg2antt1
.Columns.Add("Task")
With .Chart
.set_PaneWidth(False,128)
.FirstVisibleDate = #1/1/2001#
End With
With .Items
hSummary = .AddItem("Summary")
.AddBar(hSummary,"Summary",#1/2/2001#,#1/2/2001#)
hTask = .AddItem("Task A")
.AddBar(hTask,"Task",#1/2/2001#,#1/5/2001#)
.DefineSummaryBars(hSummary,"",hTask,"")
hTask = .AddItem("Task B")
.AddBar(hTask,"Task",#1/4/2001#,#1/8/2001#)
.DefineSummaryBars(hSummary,"",hTask,"")
End With
End With
|
1548
|
How can I show the bars using a solid color, with no pattern inside

Dim h
With Exg2antt1
.BeginUpdate()
.DefaultItemHeight = 24
.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exAllLines
With .Chart
.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exAllLines
.NonworkingDays = 0
.set_PaneWidth(False,128)
.FirstVisibleDate = #1/1/2001#
.Bars.Item("Task").Pattern = exontrol.EXG2ANTTLib.PatternEnum.exPatternSolid
End With
.Columns.Add("Column")
With .Items
h = .AddItem("Solid A")
.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"A")
.AddBar(h,"Task",#1/5/2001#,#1/7/2001#,"B")
.set_ItemBar(h,"B",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarColor,255)
.AddBar(h,"Task",#1/8/2001#,#1/10/2001#,"C")
.set_ItemBar(h,"C",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarColor,65280)
h = .AddItem("Solid B")
.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"A")
.set_ItemBar(h,"A",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarBackColor,255)
.AddBar(h,"Task",#1/5/2001#,#1/7/2001#,"B")
.set_ItemBar(h,"B",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarColor,255)
.set_ItemBar(h,"B",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarBackColor,65280)
.AddBar(h,"Task",#1/8/2001#,#1/10/2001#,"C")
.set_ItemBar(h,"C",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarColor,16711680)
.set_ItemBar(h,"C",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarBackColor,16711935)
End With
.EndUpdate()
End With
|
1547
|
Basically what I am trying to do is replicate MS Project look & feel. Is that possible

With Exg2antt1
.BeginUpdate()
With .VisualAppearance
.Add(1,"gBFLBCJwBAEHhEJAEGg4BNUMQAAYAQGKIYBkAKBQAGaAoDDMOQ4QwAAxDCKsEwsACEIrjKCRShyCYZRhGcTALD8EhhECTZKkAYQEiKLoaRzAcwyDAcQRFCKUJxhEYZa" & _
"i+NobSBQMZqBQgASIUCLZ5ACSYEigAovTULCKwJiWNZDUTRcTxCKQahLLivIhGUYKfgmY5lT5VUT1HS9IShJSmKTlORLOi+M4zUJLc4SVblGz7FyfYDBKygLqqFigLAx" & _
"dDYTRNfzjHiTKbtGA7MADA4DVTAeC2bC+EYVTytY4sHQrIACZ5iWREMhXTi0E4rTa6dTxaS6KzKGqsZbsNAbHLdHTfVy1Mx1XaobqDJZdaTpdjaTDeJSjVjKdx4TZqSi" & _
"zjSGJOgcU4RhcIQDDURhIESXwEGgbQJBQQjeggQBiC4NJAluGJrAUB5Lmmc56n4Pp/i+NQjmqdQ5k2J5+AGAAgCgFgEgAHxQAGfoBmAOA2AaAxghgLgOgMIJ4AoER8mE" & _
"WBSBoNohHKAgZgSYgIHYH4ImCB5OAqBghjiEgcgmIQoioD4IiKGJGCsUgUHiVirmOBQVAEgI=")
.Add(39,"CP:1 -1 -1 0 0")
.Add(40,"gBFLBCJwBAEHhEJAEGg4BEcMQAAYAQGKIYBkAKBQAGaAoDDMOQ4QwAAxDCKsEwsACEIrjKCRShyCYZRhGcTAFD8EhhECTZKkAZwEiKLoaRzAcwyDAcQRFCKUJxlKa5P" & _
"jaLwAAbJMZKAqDDgBIijIqnKA5JoyKIkTzCIJxXScByDGqNaQoehYXhEMg1CTXVgRCKoYTDBKybLqGT6VoCP5vWJaURWHZFTTJOyNagmSJ6XACbQMW7gNYQGBEEigNIx" & _
"ToOU4jFDGIB2VAQRK5BDQbQSFCpIRCCRQYhcQJ6YIAD76HomS5NU7UNKhHSdMy3J6ra5sOqbBqWa5LWjbNq3DadSzvPKub5vexwHwWawSUDkOR5Li+M43S4JPS5bZdDx" & _
"PiWVJrnWOw9F6XxTiGWpsHcO5+C6Xx7kOZpwHoOxeF8T4fkeYJgnEdZwOwQRBnSex9H6f4vk+c5xn4fZQhQBCAg==")
.Add(41,"gBFLBCJwBAEHhEJAEGg4BQICg6AADACAxRDAMkOQAGaAoDDUMQyQwAAxDSK8EwsACEIrjKCRShyCYZRhGcTALBMIwKGABIRGUZJGDkOYgDCBEhTHDUOwHGyQYDkCQoR" & _
"iYMAwTBQMaTXDdCQ1ECkJomObqAgkMZCTbKMySAA0NgPD6sKSjOIRSDUJZcV5EoAKfiqZIRSJSMZVLLVNSVJipAAlOTZPo6JJuTLOE4WVRcSydH6oAApeg6KoYAFzQAE" & _
"DCbYgOTKBYLUOCwTZmDwTK6BcTtXDbejeYYcZ7DNj2NYtJ4TRCBcpzLLIXrCKg0TBPQ4YNC2DT5VDWIq1aDdQo7MpxWjlGI5Ri2c51UDSYi0G4tDyLSYWXDfFSQTrHDQ" & _
"XhAAghCUAxJgyaB1DkGRyDCKBhAiGwLg0DYhCKDI8CcVwIAwRotBeAYCCmBZ0nsfR+n+L5PlYE53BwTpzn4AIAiAGAOAMfZfmeVBwDuD54C4DYDCCaA6AgQJfHGPJtD+" & _
"YRoGIF4GGGrAAH2RpjjCf4IGIOIKCSCQhmeXBtDqT54i4LYLCKaI6CkfRGlOKgtg2IxYl4OoMkwIYwmkP5jmkAg/hAZAYnAaw6A+eQeEmEgkikKg8BqDkYFCFIlBkThT" & _
"g8BoThif4WGWORqFyFwjkGIJlD+ZgphIY4ZGYWYEmSGQmjGIhthvMpwGcOJPnmTh1h0JxploPAZg4I5+HyH4nlmfh/g8BhTgSf4hGgegagiIlShCYA/miahCg+JBpUIY" & _
"w3k+ehehmJgpioaoWDeKYagAY4oioSZFn2BQfFGCJdD+aoqjKK4rGqWJwGENwPnqTo1i1gtiBgDYzn6PIviuWp+j+DwFnMaJ/jEbB7BqSIyCOQR4lkP5smsQpPjQbQbD" & _
"SWI0C0cR6lmNpqGMCgJDCBZTFyf44G4O4KmSOWTnCVg/m6K4ymuOxu4OWw1E+e5OnWPQvGvYgWg0Q5+nyP4vlvE+OBMTJ/kEcB8BsCJCDATArA6QhxAgeIgkScRMFcFp" & _
"FlCFAEICA")
.Add(42,"gBFLBCJwBAEHhEJAEGg4BY8MQAAYAQGKIYBkAKBQAGaAoDDMOQ4QwAAwjQLMEwsACEIrjKCRShyCYZRhGcTALD8EhhECTZKkAYgEiKLoaRzAcwyDAcQRFCKUJxhEY5a" & _
"i+NobRCAUiwHQUBr/I4AKLfeJ5dACKYNShRMrSABMNgZBKpJAqKiqJoiFoRDINIi2BYUIhqGCxYRseyZegmEYWVTREr3HKsVTtAanjZSJakXxnGaQJ7jKaLXo6II8YTI" & _
"WBABaIAQiBahQArOiKchaTZ5YheFRYVBOG4bK6BcguW4qGxSXpuRxZOo2YAFVzNNC3YzkCIcegnIp9ZxeFK5Tg1Z4XKTaNwqPBcYpHPqdVhCOgYZwUb5XMjWNatLYIbo" & _
"ziiUhzCAeJeG6ZAAAiBIUA0JgziGVJkGUGJIBgUYSBEN5VBoGxCEUHItjSFAxBcRhim4dIqFGTB+BUfxfneegAgCYAoBQFR+lQeASAEBRIGESAogMYJ4DoEIEmCaAqAo" & _
"JoGGCbgYgaIYYG4HoHGICByCKAoKmGZBOgkYh4hoKIKmKKI2CmC5giMBINBgY0AjODRjgiXg6g2I8glUKAHEifhBhAJApBYRIRmQOQmAoOgLBIEhMhOJJZD4UoUGUSRC" & _
"FaAoOHKPIAhYZY5GoXIXmWaYGF2GJlgKMB9DmZhpiIZ4aGaSYuG6GomigWgGDmCohmYdIdicWZeHqHRnCgHgIh8aAIBoCA/lAECAg")
End With
.Appearance = &H28000000
.BackColor = Color.FromArgb(255,255,255)
.BackColorLevelHeader = Color.FromArgb(255,255,255)
.BackColorHeader32 = &H27000000
.SelBackColor = Color.FromArgb(0,0,0)
.SelForeColor = Color.FromArgb(255,255,255)
With .Chart
.BackColorLevelHeader32 = &H27000000
.BackColor = Color.FromArgb(255,255,255)
.Bars.Item("Task").Color32 = &H2a000000
End With
.FilterBarBackColor32 = &H1000000
.set_Background32(exontrol.EXG2ANTTLib.BackgroundPartEnum.exCursorHoverColumn,&H29000000)
.set_Background32(exontrol.EXG2ANTTLib.BackgroundPartEnum.exToolTipAppearance,&H1000000)
.set_Background32(exontrol.EXG2ANTTLib.BackgroundPartEnum.exSplitBar,&H1000000)
.EndUpdate()
End With
|
1546
|
Is there anyway to change the style of the splitter which separates the list/chart
With Exg2antt1
.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
.set_Background32(exontrol.EXG2ANTTLib.BackgroundPartEnum.exHeaderFilterBarButton,&H1000000)
.set_Background32(exontrol.EXG2ANTTLib.BackgroundPartEnum.exSplitBar,&H1ff0000)
End With
|
1545
|
Does your control support subscript or superscript, in HTML captions

Dim h
With Exg2antt1
With .Chart
.FirstVisibleDate = #1/1/2001#
.set_PaneWidth(False,64)
End With
.Columns.Add("Column")
With .Items
h = .AddItem("Item 1")
.AddBar(h,"Task",#1/2/2001#,#1/4/2001#,"")
.set_ItemBar(h,"",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption,"<sha ;;0>Event <b><font ;6><off -6>2<off 4>3<off 4>1")
.set_ItemBar(h,"",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption,18)
End With
End With
|
1544
|
I have noticed that the column's header is changed once the cursor hovers it. Is it possible to change that visual appearance

With Exg2antt1
.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
With .Columns
.Add("Column 1")
.Add("Column 2")
End With
.BackColorHeader32 = &H1000000
.set_Background32(exontrol.EXG2ANTTLib.BackgroundPartEnum.exCursorHoverColumn,&H12d86ff)
End With
|
1543
|
Is it possible to change the visual appearance of the columns selector/floating bar(3)

With Exg2antt1
.ColumnAutoResize = False
With .Columns
.Add("Column 1")
.Add("Column 2").Visible = False
End With
.VisualAppearance.Add(2,"c:\exontrol\images\normal.ebn")
.VisualAppearance.Add(3,"c:\exontrol\images\pushed.ebn")
.set_Background32(exontrol.EXG2ANTTLib.BackgroundPartEnum.exColumnsFloatAppearance,&H2000000)
.set_Background32(exontrol.EXG2ANTTLib.BackgroundPartEnum.exColumnsFloatBackColor,&H3000000)
.set_Background(exontrol.EXG2ANTTLib.BackgroundPartEnum.exColumnsFloatCaptionBackColor,Color.FromArgb(246,245,240))
.ColumnsFloatBarVisible = exontrol.EXG2ANTTLib.ColumnsFloatBarVisibleEnum.exColumnsFloatBarVisibleIncludeHiddenColumns
End With
|
1542
|
Is it possible to change the visual appearance of the columns selector/floating bar(2)

With Exg2antt1
.ColumnAutoResize = False
With .Columns
.Add("Column 1")
.Add("Column 2").Visible = False
End With
.VisualAppearance.Add(3,"c:\exontrol\images\pushed.ebn")
.set_Background32(exontrol.EXG2ANTTLib.BackgroundPartEnum.exColumnsFloatBackColor,&H3000000)
.ColumnsFloatBarVisible = exontrol.EXG2ANTTLib.ColumnsFloatBarVisibleEnum.exColumnsFloatBarVisibleIncludeHiddenColumns
End With
|
1541
|
Is it possible to change the visual appearance of the columns selector/floating bar(1)

With Exg2antt1
.VisualAppearance.Add(2,"c:\exontrol\images\normal.ebn")
.set_Background32(exontrol.EXG2ANTTLib.BackgroundPartEnum.exColumnsFloatAppearance,&H2000000)
.set_Background(exontrol.EXG2ANTTLib.BackgroundPartEnum.exColumnsFloatBackColor,Color.FromArgb(246,245,240))
.set_Background(exontrol.EXG2ANTTLib.BackgroundPartEnum.exColumnsFloatCaptionBackColor,Color.FromArgb(246,245,240))
.ColumnsFloatBarVisible = exontrol.EXG2ANTTLib.ColumnsFloatBarVisibleEnum.exColumnsFloatBarVisibleIncludeHiddenColumns
End With
|
1540
|
I am using the ColumnsFloatBarVisible property on True, but still not able to add any column on that list
With Exg2antt1
.ColumnAutoResize = False
With .Columns
.Add("Column 1")
.Add("Column 2").Visible = False
End With
.ColumnsFloatBarVisible = exontrol.EXG2ANTTLib.ColumnsFloatBarVisibleEnum.exColumnsFloatBarVisibleIncludeHiddenColumns
End With
|
1539
|
Is it possible to list a column to columns selector/floating bar, but still user can use it

With Exg2antt1
.ColumnAutoResize = False
With .Columns
.Add("Column 1")
.Add("Column 2").Visible = False
With .Add("Column 3")
.Visible = False
.Enabled = False
End With
End With
.ColumnsFloatBarVisible = exontrol.EXG2ANTTLib.ColumnsFloatBarVisibleEnum.exColumnsFloatBarVisibleIncludeHiddenColumns
End With
|
1538
|
How can I prevent a specific column not to be listed in the columns selector/floating bar
With Exg2antt1
.ColumnAutoResize = False
With .Columns
.Add("Column 1")
.Add("Column 2").Visible = False
With .Add("Column 3")
.Visible = False
.AllowDragging = False
End With
End With
.ColumnsFloatBarVisible = exontrol.EXG2ANTTLib.ColumnsFloatBarVisibleEnum.exColumnsFloatBarVisibleIncludeHiddenColumns
End With
|
1537
|
Is it possible to change the "Columns" caption being shown in the columns selector/floating bar
With Exg2antt1
.ColumnAutoResize = False
With .Columns
.Add("Column 1")
.Add("Column 2").Visible = False
End With
.set_Description(exontrol.EXG2ANTTLib.DescriptionTypeEnum.exColumnsFloatBar,"Hidden Columns")
.ColumnsFloatBarVisible = exontrol.EXG2ANTTLib.ColumnsFloatBarVisibleEnum.exColumnsFloatBarVisibleIncludeHiddenColumns
End With
|
1536
|
How can I show the columns selector, so the user can drag and drop columns to the view
With Exg2antt1
.ColumnAutoResize = False
With .Columns
.Add("Column 1")
.Add("Column 2").Visible = False
End With
.ColumnsFloatBarVisible = exontrol.EXG2ANTTLib.ColumnsFloatBarVisibleEnum.exColumnsFloatBarVisibleIncludeHiddenColumns
End With
|
1535
|
The column's header is changed while the cursor hovers it. Is it possible to prevent that
With Exg2antt1
With .Columns
.Add("Column 1")
.Add("Column 2")
End With
.set_Background32(exontrol.EXG2ANTTLib.BackgroundPartEnum.exCursorHoverColumn,-1)
End With
|
1534
|
Is there any property I can save and restore automatically the current setting, column position, size, and so on (2)
With Exg2antt1
.BeginUpdate()
.Columns.Add("Column")
With .Items
.AddItem("Item 1")
.AddItem("Item 2")
.AddItem("Item 3")
End With
.Layout = "Select=""0"";SingleSort=""C0:2"";Columns=1"
.EndUpdate()
End With
|
1533
|
Is there any property I can save and restore automatically the current setting, column position, size, and so on (1)
With Exg2antt1
.BeginUpdate()
.Columns.Add("Column")
With .Items
.AddItem("Item 1")
.AddItem("Item 2")
.AddItem("Item 3")
End With
.Layout = "gBjAAwAAuABmABpABsAB0ABlAByhoAPIAOEPAA9gYABoABQAgUEg0XN4AOcJicKkpujMbjsfkMFk0YhkQgUOjUEl8gjcGO0ok8KMULjEaGMcj08kQAO8oMkTNEtGwAG" & _
"QAqc7gUlhh1ABtAEsk9GpEfhElgVcsMupNlnlonlaAFcr0shUsp8QPEtnVJqJhmcIhUMh0QiU5sYAqMngUSuEMw07k8Qv0SgVRrNEuVflF2jF5x9JyNEm0TjQijemyE0" & _
"jE3t+YruauoAu4Az1qj9BzRn0UzksSnAA0xDjY6qnAw8OiUQ0dwzN0zWz2t7j8/xURAGNvWH6k8xlEhklhEI0O/6QAgI="
.EndUpdate()
End With
|
1532
|
How do I arrange my columns on multiple levels

With Exg2antt1
.BeginUpdate()
.ColumnAutoResize = False
.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exAllLines
With .Columns
With .Add("C0")
.ExpandColumns = "1,2"
.DisplayExpandButton = False
End With
.Add("C1")
.Add("C2")
.Add("C3")
With .Add("C4")
.ExpandColumns = "5,6"
.DisplayExpandButton = False
End With
.Add("C5")
With .Add("C6")
.ExpandColumns = "6,7"
.DisplayExpandButton = False
End With
.Add("C7")
End With
.EndUpdate()
End With
|
1531
|
Does your control support expandable header or columns, so I can arrange it on multiple levels

With Exg2antt1
.BeginUpdate()
.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exAllLines
.BackColorLevelHeader = Color.FromArgb(240,240,240)
With .Columns
With .Add("Photo")
.AllowSizing = False
.Width = 32
End With
.Add("Personal Info")
.Add("Title")
.Add("Name")
.Add("First")
.Add("Last")
.Add("Address")
.Item("Personal Info").ExpandColumns = "2,3"
With .Item("Name")
.ExpandColumns = "4,5"
.Expanded = False
End With
End With
.EndUpdate()
End With
|
1530
|
I need a Day/Hour Display where the Bars should be created/resized in a 15 Minute Scale in a normal View, but in a 5 Minute Scale when on an InsideZoom. How can I do that
With Exg2antt1
.BeginUpdate()
.Columns.Add("Task")
With .Chart
.set_PaneWidth(False,128)
.AllowCreateBar = exontrol.EXG2ANTTLib.CreateBarEnum.exCreateBarAuto
.UnitWidth = 50
.FirstVisibleDate = #1/1/2013#
.LevelCount = 2
.get_Level(0).Label = 4096
.get_Level(1).Label = "<%h%>:<%nn%>"
.get_Level(1).Unit = exontrol.EXG2ANTTLib.UnitEnum.exMinute
.get_Level(1).Count = 60
.ResizeUnitScale = exontrol.EXG2ANTTLib.UnitEnum.exMinute
.ResizeUnitCount = 15
.AllowInsideZoom = True
With .DefaultInsideZoomFormat
.InsideCount = 5
.InsideUnit = exontrol.EXG2ANTTLib.UnitEnum.exMinute
.InsideLabel = "<%nn%>"
End With
End With
With .Items
.AddItem("Item")
End With
.EndUpdate()
End With
|
1529
|
Can I change the format of date to be shown in the control
With Exg2antt1
.Chart.set_PaneWidth(True,0)
With .Columns
.Add("Default")
With .Add("Format.1")
.ComputedField = "%0"
.FormatColumn = "dateF(value) replace `/` with `-`"
End With
With .Add("Format.2")
.ComputedField = "%0"
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellValueFormat,1)
.FormatColumn = "`<b>`+ shortdate(value) + `</b> ` + timeF(value)"
End With
With .Add("Format.3")
.ComputedField = "%0"
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellValueFormat,1)
.FormatColumn = "` <b>`+ ( weekday(value) case ( 0 : `Su`; 1 : `Mo`; 2 : `Tu`; 3 : `We`; 4 : `Th`; 5 : `Fr`; 6 : `Sa`) ) + `</b> ` + ( dateF(val" & _
"ue) replace `/` with `-` )"
End With
End With
With .Items
.AddItem(#1/1/2001 10:00:00 AM#)
.AddItem(#1/2/2001 10:00:00 AM#)
End With
End With
|
1528
|
How can I display a text/caption on the chart part of the control

Dim h1
With Exg2antt1
.BeginUpdate()
.AntiAliasing = True
With .Chart
.FirstVisibleDate = #12/26/2000#
.set_PaneWidth(False,128)
End With
.Columns.Add("Column")
With .Items
h1 = .AddItem("Item 1")
.AddBar(h1,"Task",#1/2/2001#,#1/4/2001#,"A")
.set_ItemBar(h1,"A",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption,"text")
h1 = .AddItem("Item 2")
.AddBar(h1,"Task",#1/2/2001#,#1/4/2001#,"A")
.set_ItemBar(h1,"A",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption,"text outside associated with a bar")
.set_ItemBar(h1,"A",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarHAlignCaption,18)
h1 = .AddItem("Item 3")
.AddBar(h1,"",#1/2/2001#,#1/2/2001#,"A")
.set_ItemBar(h1,"A",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarCaption,"text with no bar associated")
h1 = .AddItem("Item 4")
.AddBar(h1,"Task",#1/2/2001#,#1/5/2001#,"A")
h1 = .AddItem("Item 5")
h1 = .AddItem("Item 6")
h1 = .AddItem("Item 7")
h1 = .AddItem("Item 8")
.AddBar(h1,"Task",#1/2/2001#,#1/4/2001#,"A")
h1 = .AddItem("Item 8")
.AddBar(h1,"Task",#1/2/2001#,#1/6/2001#,"A")
End With
With .Chart.Notes
.Add("1S",Exg2antt1.Items.get_ItemByIndex(3),"A","<font ;6>Movable Note Inside the Bar").set_PartCanMove(exontrol.EXG2ANTTLib.NotePartEnum.exNoteStart,True)
.Add("AK",Exg2antt1.Items.get_ItemByIndex(6),#1/6/2001#,"Note associated with a date: <%mm%>/<%dd%>/<%yyyy%>")
With .Add("2S",Exg2antt1.Items.get_ItemByIndex(7),"A","<font ;6>Fixed Note Left")
.ShowLink = exontrol.EXG2ANTTLib.NoteLinkTypeEnum.exNoteLinkHidden
.set_PartVOffset(exontrol.EXG2ANTTLib.NotePartEnum.exNoteEnd,0)
.set_PartHOffset(exontrol.EXG2ANTTLib.NotePartEnum.exNoteStart,-32)
.set_PartShadow(exontrol.EXG2ANTTLib.NotePartEnum.exNoteEnd,False)
.set_PartBackColor(exontrol.EXG2ANTTLib.NotePartEnum.exNoteEnd,Color.FromArgb(255,255,0))
End With
With .Add("3S",Exg2antt1.Items.get_ItemByIndex(8),"A","Start<br><%mmm%> <%d%> <%yyyy%>")
.set_PartCanMove(exontrol.EXG2ANTTLib.NotePartEnum.exNoteEnd,True)
.set_PartHOffset(exontrol.EXG2ANTTLib.NotePartEnum.exNoteEnd,-64)
.LinkStyle = exontrol.EXG2ANTTLib.LinkStyleEnum.exLinkDot
.LinkWidth = 2
.LinkColor = Color.FromArgb(0,0,255)
End With
With .Add("3F",Exg2antt1.Items.get_ItemByIndex(8),"A","End<br><%mmm%> <%d%> <%yyyy%>")
.RelativePosition = 1
.set_PartCanMove(exontrol.EXG2ANTTLib.NotePartEnum.exNoteEnd,True)
.LinkStyle = exontrol.EXG2ANTTLib.LinkStyleEnum.exLinkDot
.LinkWidth = 2
.LinkColor = Color.FromArgb(0,0,255)
End With
End With
.EndUpdate()
End With
|
1527
|
Which is the best way of change Bar parent
Dim h1,h2,h3
With Exg2antt1
.Debug = True
.Chart.FirstVisibleDate = #1/1/2001#
.Columns.Add("Column")
With .Items
h1 = .AddItem("Item 1")
.AddBar(h1,"Task",#1/2/2001#,#1/4/2001#,"A")
h2 = .AddItem("Item 2")
.AddBar(h2,"Task",#1/3/2001#,#1/5/2001#,"B")
h3 = .AddItem("Item 3")
.AddBar(h3,"Task",#1/5/2001#,#1/7/2001#,"A")
.set_ItemBar(h3,"A",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarParent,h1)
Debug.Print( "The Bar A of H3 fails to change the parent to H1 as it has already a bar named A" )
.set_ItemBar(h3,"A",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarParent,h2)
Debug.Print( "The Bar A of H3 can be moved to H2, as it contains no bars with the key A" )
End With
End With
|
1526
|
Is it possible to have a bar in bar

Dim h
With Exg2antt1
.BeginUpdate()
With .VisualAppearance
.Add(1,"gBFLBCJwBAEHhEJAEGg4BS4Dg6AADACAxRDAMgBQKAAzQFAYbBmGaGAAGIZhQgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDKAkRRdDSOYDmGQYDiCIoRShOMIjR" & _
"LUXxtDYEIRkSZYJAKCTtBwJAAURRULR6ACUYDnSRqGj6CQKRqEVBSLAdKyXJKvaZhGIRSDUJZkWZEIyjBY8EzXNqrIDoGKqYgOQ4XV5TFgxPR9IyhEAaLrleT5TjOII/" & _
"RpOEpYXSVHxFRAAAYhG4wABCXAAXjYF5Udhlfx3FCvMbqeCcSgOWoDZZRFa0PjVQQtNC4IitGzrMqrNaDSBlGigBauKw3TKlMzye7repOA5+aJGVz7VgfGz7EDjKg0GJ" & _
"cgMex3lOZB5jgPYHHMaYxjeRBilWbZNG4B49l2do6hkfIhECUhjDoHROEYUYMgEbQMCEEx+lGIY0CQUQJHYGoUgQGBFkgB4FmkOINiMbBrAwQoxngSQMCCYJAG8DYCkM" & _
"ZJNDOAhAHCbYGGGOBqByB5hiMcJSDORhwjQKoEkKSIgHoEZEDgWJOECSwyGSGwjkWUJUh8HADiiXA6CSRgQliFwcgcSICB2EJkCKDIAB4CAxDgMoOiOIkfA4CoiDCDhA" & _
"mUEg4hEF4DHKCByA8JYpHIWwbAMIIuC6EIkCiOBwA2QpSHQbgOkoIZMD2GxmnmOhVhUJQiEwYAOAoQZQD6HhnjmaIfBuQ5BlQPQLiMEhuEKIRHmEKA7h+Q5ChQdQPmia" & _
"hCg+JBnDAAhVCVPpoicHYEAobodicKZqHqGAO0YNA0ikQxKg6IYnAqAZcEGKxqnqOowiUZRSFwYwPAqIZkEOLhrjqaIqB4BAqn6QYwCwKwWkSMZECKLo6jKBA7DKTItW" & _
"EZBlA8SpRmwRY1G0exYi0HoEEsbpdjcLZrgaYI4kQQo6laOYEFuIpojQCJiHAZgPksAZ0EePBvDuSp0j2bxrmadY+m8QpGnKP4EHwAwAjsCZxiQQQtAgAQrAiQowhKUB" & _
"/BIcJsEMD5EHETBPBYEhLFwJwZBKMY8G6bAoEaIQMjcIIEkzUZJAscgEEuShyjyKwskucpskQSwuDITJQEyTYzGuMIjBsBBCmiBATjObQDD+UB0E0DxGlCNINASO5PnS" & _
"MQ7E2Uxu3CbQRguUgYFCVR1H0WxYC2R5xDSDgVWiXA8AyNggksXwPDWQQ3FgL4IHERxsluNpdj6bAqAacQckAEQBQWxfDzF4BUYYqBKhEEQNMDgPQGhFGIDgVwKR3iiC" & _
"iIIIgig+BfA2MYOLtAqA4ESCYDIFgVDyGEKkPAQgFBDDwG4DYnQzg5GiDIOAZw3hCDoA8MQIA9PeGEHkRIyx6jiOMEoTAxRMhoCeIwUQKSbCKH6NgV43AECyFeEkEQdB" & _
"TAxC0FESQYhgB+DGPcTwYBXBZEeCIOoKg5j6EIJAbQNxJCjCAMAJwDRxghA4DEBYpk1hnHwH4DIxg3AaFGGgMQFwHhBHgGkewhhCDIHMDkDY0AlAGEAIAgIA=")
.Add(2,"c:\exontrol\images\normal.ebn")
.Add(3,"CP:2 2 -4 2 4")
End With
With .Chart
.set_PaneWidth(False,256)
.LevelCount = 2
.FirstVisibleDate = #1/1/2001#
End With
.Columns.Add("Info")
With .Items
h = .AddItem("Range Moveable Frame")
.AddBar(h,"Task",#1/4/2001#,#1/8/2001#,"F")
.set_ItemBar(h,"F",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarToolTip,"This bar can be moved inside the displayed range.")
.set_ItemBar(h,"F",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarMinStart,#1/2/2001#)
.set_ItemBar(h,"F",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarMaxEnd,#1/18/2001#)
.set_ItemBar(h,"F",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarShowRange,32)
.set_ItemBar(h,"F",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarShowRangeTransparent,90)
h = .AddItem("Range Moveable Pattern")
.AddBar(h,"Task",#1/6/2001#,#1/10/2001#,"F")
.set_ItemBar(h,"F",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarToolTip,"This bar can be moved inside the displayed range.")
.set_ItemBar(h,"F",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarMinStart,#1/2/2001#)
.set_ItemBar(h,"F",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarMaxEnd,#1/18/2001#)
.set_ItemBar(h,"F",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarShowRange,1)
.set_ItemBar(h,"F",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarShowRangeTransparent,90)
h = .AddItem("Range Moveable EBN Transparent")
.AddBar(h,"Task",#1/8/2001#,#1/12/2001#,"F")
.set_ItemBar(h,"F",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarToolTip,"This bar can be moved inside the displayed range.")
.set_ItemBar(h,"F",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarMinStart,#1/2/2001#)
.set_ItemBar(h,"F",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarMaxEnd,#1/18/2001#)
.set_ItemBar(h,"F",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarShowRange,16777216)
.set_ItemBar(h,"F",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarShowRangeTransparent,50)
h = .AddItem("Range Moveable EBN Opaque 1")
.set_ItemHeight(h,24)
.AddBar(h,"Task",#1/10/2001#,#1/14/2001#,"F")
.set_ItemBar(h,"F",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarToolTip,"This bar can be moved inside the displayed range.")
.set_ItemBar(h,"F",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarMinStart,#1/2/2001#)
.set_ItemBar(h,"F",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarMaxEnd,#1/18/2001#)
.set_ItemBar(h,"F",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarShowRange,33554432)
h = .AddItem("Range Moveable EBN Opaque 2")
.set_ItemHeight(h,24)
.AddBar(h,"Task",#1/12/2001#,#1/16/2001#,"F")
.set_ItemBar(h,"F",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarToolTip,"This bar can be moved inside the displayed range.")
.set_ItemBar(h,"F",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarMinStart,#1/2/2001#)
.set_ItemBar(h,"F",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarMaxEnd,#1/18/2001#)
.set_ItemBar(h,"F",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarShowRange,50331648)
End With
.EndUpdate()
End With
|
1525
|
How can I show vertical lines using the SelectDate

With Exg2antt1
.BeginUpdate()
With .VisualAppearance
.Add(1,"gBFLBCJwBAEHhEJAEGg4BK8IQAAYAQGKIYBkAKBQAGaAoDDYMwzQwAAxDMKEEwsACEIrjKCRShyCYZRhGcTAFD8EhhECTY4lCQJAiKLoeQLHMBybJ8LwiGQaRJmeaYR" & _
"DUMI6QjPVARVIkaxhCSSaKpIAIBEB")
End With
With .Chart
.set_PaneWidth(False,0)
.FirstVisibleDate = #1/1/2008#
.MarkTodayColor = .BackColor
.LevelCount = 2
.AllowSelectDate = exontrol.EXG2ANTTLib.SelectDateEnum.exNoSelectDate
.MarkSelectDateColor32 = &H1000000
.SelectLevel = 1
.set_SelectDate(#1/15/2008#,True)
.set_SelectDate(#1/18/2008#,True)
End With
.EndUpdate()
End With
|
1524
|
How can I show vertical lines using the SelectDate

With Exg2antt1
.BeginUpdate()
With .Chart
.set_PaneWidth(False,0)
.FirstVisibleDate = #1/1/2008#
.MarkTodayColor = .BackColor
.LevelCount = 2
.AllowSelectDate = exontrol.EXG2ANTTLib.SelectDateEnum.exNoSelectDate
.MarkSelectDateColor32 = &H7fff0000
.SelectLevel = 1
.set_SelectDate(#1/15/2008#,True)
.set_SelectDate(#1/18/2008#,True)
End With
.EndUpdate()
End With
|
1523
|
How can I find if there is any filter applied to the control
' FilterChange event - Occurs when the filter was changed.
Private Sub Exg2antt1_FilterChange(ByVal sender As System.Object) Handles Exg2antt1.FilterChange
With Exg2antt1
Debug.Print( "If negative, the filter is present, else not" )
Debug.Print( .Items.VisibleItemCount )
End With
End Sub
Dim h
With Exg2antt1
.BeginUpdate()
.LinesAtRoot = exontrol.EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
.TreeColumnIndex = -1
.FilterInclude = exontrol.EXG2ANTTLib.FilterIncludeEnum.exMatchingItemsOnly
With .Columns.Add("Column")
.DisplayFilterButton = True
.FilterType = exontrol.EXG2ANTTLib.FilterTypeEnum.exFilter
.Filter = "C1"
End With
With .Items
h = .AddItem("R1")
.InsertItem(h,Nothing,"C1")
.InsertItem(h,Nothing,"C2")
.set_ExpandItem(h,True)
h = .AddItem("R2")
.InsertItem(h,Nothing,"C1")
.InsertItem(h,Nothing,"C2")
End With
.ApplyFilter()
.EndUpdate()
End With
|
1522
|
How can I prevent showing the lines for the hierarchy while using the exMatchingItemsOnly option
Dim h
With Exg2antt1
.BeginUpdate()
.LinesAtRoot = exontrol.EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
.TreeColumnIndex = -1
.FilterInclude = exontrol.EXG2ANTTLib.FilterIncludeEnum.exMatchingItemsOnly
With .Columns.Add("Column")
.DisplayFilterButton = True
.FilterType = exontrol.EXG2ANTTLib.FilterTypeEnum.exFilter
.Filter = "C1|C2"
End With
With .Items
h = .AddItem("R1")
.InsertItem(h,Nothing,"C1")
.InsertItem(h,Nothing,"C2")
.set_ExpandItem(h,True)
h = .AddItem("R2")
.InsertItem(h,Nothing,"C1")
.InsertItem(h,Nothing,"C2")
End With
.ApplyFilter()
.EndUpdate()
End With
|
1521
|
Is there any method to get only the matched items and not the items with his parent
Dim h
With Exg2antt1
.BeginUpdate()
.LinesAtRoot = exontrol.EXG2ANTTLib.LinesAtRootEnum.exLinesAtRoot
.FilterInclude = exontrol.EXG2ANTTLib.FilterIncludeEnum.exMatchingItemsOnly
With .Columns.Add("Column")
.DisplayFilterButton = True
.FilterType = exontrol.EXG2ANTTLib.FilterTypeEnum.exFilter
.Filter = "C1|C2"
End With
With .Items
h = .AddItem("R1")
.InsertItem(h,Nothing,"C1")
.InsertItem(h,Nothing,"C2")
.set_ExpandItem(h,True)
h = .AddItem("R2")
.InsertItem(h,Nothing,"C1")
.InsertItem(h,Nothing,"C2")
End With
.ApplyFilter()
.EndUpdate()
End With
|
1520
|
Is it possible to specify a working day exception that would override the non-working day pattern
With Exg2antt1
.BeginUpdate()
.Columns.Add("Pattern")
With .Chart
.FirstWeekDay = exontrol.EXG2ANTTLib.WeekDayEnum.exMonday
.FirstVisibleDate = #1/24/2008#
.set_PaneWidth(False,52)
.LevelCount = 2
End With
With .Items
.AddItem("Default")
.set_ItemNonworkingUnits(.AddItem("1/26/2008"),False,"weekday(value) case (default:0 ; 0:1; 6:(value != #1/26/2008#))")
.set_ItemNonworkingUnits(.AddItem("1/27/2008"),False,"weekday(value) case (default:0 ; 0:(value != #1/27/2008#); 6:1)")
.set_ItemNonworkingUnits(.AddItem("Sundays"),False,"weekday(value) = 0")
End With
.EndUpdate()
End With
|
1519
|
How do I enable the scrollbar-extension, as thumb to be shown outside of the control's client area
With Exg2antt1
.BeginUpdate()
.ScrollBars = exontrol.EXG2ANTTLib.ScrollBarsEnum.exDisableBoth
.Chart.ToolTip = ""
.set_ScrollPartVisible(exontrol.EXG2ANTTLib.ScrollBarEnum.exVScroll,exontrol.EXG2ANTTLib.ScrollPartEnum.exExtentThumbPart,True)
.set_ScrollPartVisible(exontrol.EXG2ANTTLib.ScrollBarEnum.exHScroll,exontrol.EXG2ANTTLib.ScrollPartEnum.exExtentThumbPart,True)
.set_ScrollPartVisible(exontrol.EXG2ANTTLib.ScrollBarEnum.exHChartScroll,exontrol.EXG2ANTTLib.ScrollPartEnum.exExtentThumbPart,True)
.ScrollWidth = 4
.set_Background(exontrol.EXG2ANTTLib.BackgroundPartEnum.exVSBack,Color.FromArgb(240,240,240))
.set_Background(exontrol.EXG2ANTTLib.BackgroundPartEnum.exVSThumb,Color.FromArgb(128,128,128))
.ScrollHeight = 4
.set_Background(exontrol.EXG2ANTTLib.BackgroundPartEnum.exHSBack,.get_Background(exontrol.EXG2ANTTLib.BackgroundPartEnum.exVSBack))
.set_Background(exontrol.EXG2ANTTLib.BackgroundPartEnum.exHSThumb,.get_Background(exontrol.EXG2ANTTLib.BackgroundPartEnum.exVSThumb))
.set_Background(exontrol.EXG2ANTTLib.BackgroundPartEnum.exScrollSizeGrip,.get_Background(exontrol.EXG2ANTTLib.BackgroundPartEnum.exVSBack))
.EndUpdate()
End With
|
1518
|
Is it possible to associate an extra frame, border, EBN to the bar/task

Dim h
With Exg2antt1
.BeginUpdate()
With .VisualAppearance
.Add(1,"gBFLBCJwBAEHhEJAEGg4BNACg6AADACAxRDAMgBQKAAzQFAYbhsGCGAAGEZBQgmFgAQhFcZQSKUOQTDKMIziYBYfgkMIgSbJUgDEAkRRdDSOYDmGQYDiCIoRShOMaTV" & _
"J8bQ2ASEaAmWK3boUAJFPrFc6ABJMZRRISXJABeKwRoGJYaUhRdDRNCIZBqEqua7iEZRQqCCZkWZPNTRVScByhF61IDpWjKLDKJJwXBMcxyBL0NRxFTAKawGoYbq0AJQ" & _
"VTQcZPVhgAYYfSlMDuOB5Gq+G5SQjhWIgBjde4dRrHYrsGyQAp7JJoWLZMQyFIFIYNTS8LgpPI6LyyP5rABhWw5PiUVyfWTMdwzPatbyKHJicbpepWPxcNYtNzcNb3SA" & _
"bn+KgAmqP5yDiIAACIEhQDSGJOgcU4RhQYwgFUQwIESXxEGgbQJBQQhzHmUAAGILh0lWbpEGIIQQHuegaAaoRYBUBYBCgFAOAOQJgC4CgCCCQAUAQARACgRZFEa3ogCc" & _
"CICDCDZ9AeH5wGgFoHmAUBIA6CJgiALgMAIABYiYER+BuMIyC4CZjAcYgygyYxIlYNoNBGMJGDoCximiXg+g+Yx0G0DgNiOIJGECEZkgQbA7A8A5JA4SITmOZBsEGFJD" & _
"kkLhQhXOItBYEZEGEHBCBARApGIYh1EAaIoAMQIEkENBNBGZpJg4YgCGcAAaGUAAFCmVhqBMZppGADQDACQAmAwAAFgoBh1BSJ4ZFwEEdHmcFmgWag2gEFhoFlINYkoH" & _
"AQAABhKGQX4jGkGQ8BiJ5BDqBAABqKl1GSJxkgAcoqAYAR3lQcIrkaOoSiiEZCBCBAgiqAaJHaLpHBqQoliaBZxHwWYwkUQRMFQExEmENBJBIRIBAgQwQkOYJ0D4DhDg" & _
"CYAzjWQpgjwLgKi2QIWl4CACADeofC4SpsHcHArlqRBqBkbpLAaQoxAUQRQE6PLoCaT40AOYJ6lWNdXlAL4/m2QIql4CRAAQBCAg=")
.Add(2,"CP:1 -4 -4 4 4")
End With
.Columns.Add("Task")
.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exAllLines
With .Chart
.FirstVisibleDate = #1/1/2001#
.set_PaneWidth(False,128)
.DrawGridLines = exontrol.EXG2ANTTLib.GridLinesEnum.exAllLines
End With
With .Items
.AddBar(.AddItem("Task"),"Task",#1/2/2001#,#1/5/2001#,"K1")
h = .AddItem("Task/ EBN Frame")
.set_ItemHeight(h,32)
.AddBar(h,"Task",#1/3/2001#,#1/15/2001#,"K2")
.set_ItemBar(h,"K2",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarFrameColor,33554432)
h = .AddItem("Task/ EBN Frame")
.set_ItemHeight(h,32)
.AddBar(h,"Task",#1/3/2001#,#1/15/2001#,"K2")
.set_ItemBar(h,"K2",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarFrameColor,50331392)
.AddBar(.AddItem("Task"),"Task",#1/2/2001#,#1/5/2001#,"K3")
End With
.EndUpdate()
End With
|
1517
|
Is it possible to automatically display the working days duration in a column
Dim h
With Exg2antt1
.BeginUpdate()
With .Columns
.Add("Tasks")
With .Add("Duration")
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty,513)
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarKey,"A")
End With
With .Add("Working")
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty,258)
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarKey,"A")
End With
End With
.Items.AllowCellValueToItemBar = True
With .Chart
.set_PaneWidth(False,256)
.FirstVisibleDate = #1/3/2002#
.LevelCount = 2
End With
With .Items
h = .AddItem("Task 1")
.AddBar(h,"Task",#1/4/2002#,#1/8/2002#,"A")
End With
.EndUpdate()
End With
|
1516
|
How can I apply colors to columns section of the control based on properties of the displaying bars

' BarResize event - Occurs when a bar is moved or resized.
Private Sub Exg2antt1_BarResize(ByVal sender As System.Object,ByVal Item As Integer,ByVal Key As Object) Handles Exg2antt1.BarResize
With Exg2antt1
.Refresh()
End With
End Sub
With Exg2antt1
.BeginUpdate()
With .Columns.Add("<fgcolor=FF0000>Tasks > 2 days")
.HTMLCaption = .Caption
End With
With .Columns.Add("PropertyBar")
.Visible = False
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarKey,"")
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty,513)
End With
.Items.AllowCellValueToItemBar = True
With .Chart
.LevelCount = 2
.FirstVisibleDate = #1/1/2001#
.set_PaneWidth(False,96)
.NonworkingDays = 0
End With
With .ConditionalFormats.Add("%1 > 2")
.ForeColor = Color.FromArgb(255,0,0)
.Bold = True
End With
.SelBackColor = .BackColor
.SelForeColor = .ForeColor
With .Items
.AddBar(.AddItem("Task 1"),"Task",#1/2/2001#,#1/4/2001#,"")
.AddBar(.AddItem("Task 2"),"Task",#1/4/2001#,#1/7/2001#,"")
.AddBar(.AddItem("Task 1"),"Task",#1/2/2001#,#1/4/2001#,"")
End With
.EndUpdate()
End With
|
1515
|
Is it possible to update the colors on columns caption to highlight the critical path ( CPM )

' BarResize event - Occurs when a bar is moved or resized.
Private Sub Exg2antt1_BarResize(ByVal sender As System.Object,ByVal Item As Integer,ByVal Key As Object) Handles Exg2antt1.BarResize
With Exg2antt1
.Items.SchedulePDM(Item,Key)
.Refresh()
End With
End Sub
Dim h1,h2,h3,h4
With Exg2antt1
.BeginUpdate()
.Columns.Add("Task")
With .Columns.Add("PropertyBar")
.Visible = False
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarKey,"")
.set_Def(exontrol.EXG2ANTTLib.DefColumnEnum.exCellValueToItemBarProperty,269)
End With
.Items.AllowCellValueToItemBar = True
With .Chart
.FirstVisibleDate = #1/1/2001#
.set_PaneWidth(False,48)
.NonworkingDays = 0
End With
With .ConditionalFormats.Add("%1 != 0")
.ForeColor = Color.FromArgb(255,0,0)
.Bold = True
End With
.SelBackColor = .BackColor
.SelForeColor = .ForeColor
With .Items
h1 = .AddItem("Task 1")
.AddBar(h1,"Task",#1/2/2001#,#1/4/2001#,"")
h2 = .AddItem("Task 2")
.AddBar(h2,"Task",#1/2/2001#,#1/4/2001#,"")
.AddLink("L1",h1,"",h2,"")
h3 = .AddItem("Task 3")
.AddBar(h3,"Task",#1/2/2001#,#1/4/2001#,"")
.AddLink("L2",h2,"",h3,"")
h4 = .AddItem("Task 3")
.AddBar(h4,"Task",#1/2/2001#,#1/3/2001#,"")
.AddLink("L3",h2,"",h4,"")
.set_DefSchedulePDM(exontrol.EXG2ANTTLib.DefSchedulePDMEnum.exPDMCriticalPathBarColor,255)
.set_DefSchedulePDM(exontrol.EXG2ANTTLib.DefSchedulePDMEnum.exPDMCriticalPathLinkColor,255)
.SchedulePDM(0,"")
End With
.EndUpdate()
End With
|
1514
|
I am using the AddShapeCorner to define icon-bars. Is it possible to define with a different color

With Exg2antt1
.BeginUpdate()
.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
With .Chart
.FirstVisibleDate = #1/1/2001#
.set_PaneWidth(False,128)
With .Bars
.AddShapeCorner(12345,1)
With .Copy("Milestone","Original")
.StartShape = &H3020 Or exontrol.EXG2ANTTLib.ShapeCornerEnum.exShapeIconVBar Or exontrol.EXG2ANTTLib.ShapeCornerEnum.exShapeIconRight
.StartColor32 = -1
End With
With .Copy("Milestone","Red")
.StartShape = &H3020 Or exontrol.EXG2ANTTLib.ShapeCornerEnum.exShapeIconVBar Or exontrol.EXG2ANTTLib.ShapeCornerEnum.exShapeIconRight
.StartColor = Color.FromArgb(255,0,0)
End With
With .Copy("Milestone","Green")
.StartShape = &H3020 Or exontrol.EXG2ANTTLib.ShapeCornerEnum.exShapeIconVBar Or exontrol.EXG2ANTTLib.ShapeCornerEnum.exShapeIconRight
.StartColor = Color.FromArgb(0,255,0)
End With
End With
End With
.Columns.Add("Column")
With .Items
.AddBar(.AddItem("Original"),"Original",#1/2/2001#,#1/2/2001#)
.AddBar(.AddItem("Red"),"Red",#1/2/2001#,#1/2/2001#)
.AddBar(.AddItem("Green"),"Green",#1/2/2001#,#1/2/2001#)
End With
.EndUpdate()
End With
|
1513
|
My icon-bars shows different when displaying in the chart. Any ideas
With Exg2antt1
.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
.Chart.FirstVisibleDate = #1/1/2001#
With .Chart.Bars
.AddShapeCorner(12345,1)
With .Item("Milestone")
.StartShape = &H3020 Or exontrol.EXG2ANTTLib.ShapeCornerEnum.exShapeIconVBar Or exontrol.EXG2ANTTLib.ShapeCornerEnum.exShapeIconRight
.StartColor32 = -1
End With
End With
.Columns.Add("Column")
With .Items
.AddBar(.AddItem("Item 1"),"Milestone",#1/2/2001#,#1/2/2001#)
End With
End With
|
1512
|
The items are not colored in the chart panel

Dim h
With Exg2antt1
.Chart.set_PaneWidth(False,128)
.Columns.Add("Default")
With .Items
h = .AddItem("Item")
Exg2antt1.Chart.set_ItemBackColor(h,Color.FromArgb(0,255,0))
Exg2antt1.Items.set_ItemBackColor(h,Color.FromArgb(0,255,0))
End With
End With
|
1511
|
I need to know how to determine the critical path (CPM) after the SchedulePDM procedure, so I can turn red the bars and links

' BarResize event - Occurs when a bar is moved or resized.
Private Sub Exg2antt1_BarResize(ByVal sender As System.Object,ByVal Item As Integer,ByVal Key As Object) Handles Exg2antt1.BarResize
With Exg2antt1
.Items.SchedulePDM(Item,Key)
End With
End Sub
Dim h1,h2,h3,h4
With Exg2antt1
.BeginUpdate()
.Columns.Add("Task")
With .Chart
.FirstVisibleDate = #1/1/2001#
.set_PaneWidth(False,48)
.NonworkingDays = 0
End With
With .Items
h1 = .AddItem("Task 1")
.AddBar(h1,"Task",#1/2/2001#,#1/4/2001#,"K1")
h2 = .AddItem("Task 2")
.AddBar(h2,"Task",#1/2/2001#,#1/4/2001#,"K2")
.AddLink("L1",h1,"K1",h2,"K2")
h3 = .AddItem("Task 3")
.AddBar(h3,"Task",#1/2/2001#,#1/4/2001#,"K3")
.AddLink("L2",h2,"K2",h3,"K3")
h4 = .AddItem("Task 3")
.AddBar(h4,"Task",#1/2/2001#,#1/3/2001#,"K4")
.AddLink("L3",h2,"K2",h4,"K4")
.set_DefSchedulePDM(exontrol.EXG2ANTTLib.DefSchedulePDMEnum.exPDMCriticalPathBarColor,255)
.set_DefSchedulePDM(exontrol.EXG2ANTTLib.DefSchedulePDMEnum.exPDMCriticalPathLinkColor,255)
.SchedulePDM(0,"K1")
End With
.EndUpdate()
End With
|
1510
|
How can I display the Year in Thai, Buddhist, Korean format

With Exg2antt1
With .Chart
.FirstWeekDay = .LocFirstWeekDay
.MonthNames = .LocMonthNames
.WeekDays = .LocWeekDays
.AMPM = .LocAMPM
.LevelCount = 2
.set_PaneWidth(False,0)
.UnitScale = exontrol.EXG2ANTTLib.UnitEnum.exDay
With .get_Level(0)
.Label = "<%mmmm%> <%d%>, <%loc_yyyy%> <r><%ww%>"
.Unit = exontrol.EXG2ANTTLib.UnitEnum.exWeek
.ToolTip = .Label
End With
.ToolTip = "<%ddd%> <%m%>/<%d%>/<%loc_yyyy%>"
End With
.set_Description(exontrol.EXG2ANTTLib.DescriptionTypeEnum.exFilterBarDateMonths,.Chart.MonthNames)
.set_DefaultEditorOption(exontrol.EXG2ANTTLib.EditorOptionEnum.exDateMonths,.Chart.MonthNames)
End With
|
1509
|
How does localization work

With Exg2antt1
With .Chart
.FirstWeekDay = .LocFirstWeekDay
.MonthNames = .LocMonthNames
.WeekDays = .LocWeekDays
.AMPM = .LocAMPM
.LevelCount = 2
.set_PaneWidth(False,0)
End With
End With
|
1508
|
Is it possible to show the bars with a different brightness (2)

Dim h
With Exg2antt1
With .VisualAppearance
.Add(1,"C:/Program Files/Exontrol/ExG2antt/Sample/EBN/2task--.ebn")
.Add(2,"C:/Program Files/Exontrol/ExG2antt/Sample/EBN/2task-.ebn")
.Add(3,"C:/Program Files/Exontrol/ExG2antt/Sample/EBN/2task.ebn")
.Add(4,"C:/Program Files/Exontrol/ExG2antt/Sample/EBN/2task+.ebn")
.Add(5,"C:/Program Files/Exontrol/ExG2antt/Sample/EBN/2task++.ebn")
End With
With .Chart
.FirstVisibleDate = #1/1/2001#
.set_PaneWidth(False,128)
.NonworkingDays = 0
.Bars.Copy("Task","--").Color32 = &H1000000
.Bars.Copy("Task","-").Color32 = &H2000000
.Bars.Item("Task").Color32 = &H3000000
.Bars.Copy("Task","+").Color32 = &H4000000
.Bars.Copy("Task","++").Color32 = &H5000000
End With
.Columns.Add("Brightness")
With .Items
h = .AddItem("0%")
.AddBar(h,"--",#1/2/2001#,#1/4/2001#,"--")
.AddBar(h,"-",#1/5/2001#,#1/7/2001#,"-")
.AddBar(h,"Task",#1/8/2001#,#1/10/2001#,"")
.AddBar(h,"+",#1/11/2001#,#1/13/2001#,"+")
.AddBar(h,"++",#1/14/2001#,#1/16/2001#,"++")
h = .AddItem("25%")
.AddBar(h,"--",#1/2/2001#,#1/4/2001#,"--")
.AddBar(h,"-",#1/5/2001#,#1/7/2001#,"-")
.AddBar(h,"Task",#1/8/2001#,#1/10/2001#,"")
.AddBar(h,"+",#1/11/2001#,#1/13/2001#,"+")
.AddBar(h,"++",#1/14/2001#,#1/16/2001#,"++")
.set_ItemBar(h,"<*>",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarTransparent,25)
h = .AddItem("50%")
.AddBar(h,"--",#1/2/2001#,#1/4/2001#,"--")
.AddBar(h,"-",#1/5/2001#,#1/7/2001#,"-")
.AddBar(h,"Task",#1/8/2001#,#1/10/2001#,"")
.AddBar(h,"+",#1/11/2001#,#1/13/2001#,"+")
.AddBar(h,"++",#1/14/2001#,#1/16/2001#,"++")
.set_ItemBar(h,"<*>",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarTransparent,50)
h = .AddItem("75%")
.AddBar(h,"--",#1/2/2001#,#1/4/2001#,"--")
.AddBar(h,"-",#1/5/2001#,#1/7/2001#,"-")
.AddBar(h,"Task",#1/8/2001#,#1/10/2001#,"")
.AddBar(h,"+",#1/11/2001#,#1/13/2001#,"+")
.AddBar(h,"++",#1/14/2001#,#1/16/2001#,"++")
.set_ItemBar(h,"<*>",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarTransparent,75)
End With
End With
|
1507
|
Is it possible to show the bars with a different brightness (1)

Dim h
With Exg2antt1
.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
With .Chart
.Bars.Item("Task").Color32 = &H1000000
.FirstVisibleDate = #1/1/2001#
.set_PaneWidth(False,128)
End With
.Columns.Add("Brightness")
With .Items
h = .AddItem("0%")
.AddBar(h,"Task",#1/2/2001#,#1/4/2001#)
h = .AddItem("25%")
.AddBar(h,"Task",#1/2/2001#,#1/4/2001#)
.set_ItemBar(h,"",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarTransparent,25)
h = .AddItem("50%")
.AddBar(h,"Task",#1/2/2001#,#1/4/2001#)
.set_ItemBar(h,"",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarTransparent,50)
h = .AddItem("75%")
.AddBar(h,"Task",#1/2/2001#,#1/4/2001#)
.set_ItemBar(h,"",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarTransparent,75)
End With
End With
|
1506
|
So the behavior I am looking for is that a change can cascade through a bar's successors, but a change that would affect a bar's predecessors is not allowed. Is this possible to in ExG2antt

Dim h,h1,h2,h3
With Exg2antt1
.BeginUpdate()
.MarkSearchColumn = False
.OnResizeControl = exontrol.EXG2ANTTLib.OnResizeControlEnum.exResizeChart
.Columns.Add("Tasks")
.Columns.Add("Start").Visible = False
.Columns.Add("End").Visible = False
With .Chart
.LevelCount = 2
.FirstVisibleDate = #9/18/2006#
.set_PaneWidth(False,64)
.set_ScrollRange(exontrol.EXG2ANTTLib.ScrollRangeEnum.exStartDate,.FirstVisibleDate)
.set_ScrollRange(exontrol.EXG2ANTTLib.ScrollRangeEnum.exEndDate,#12/31/2006#)
.MarkSelectDateColor32 = &H7fff0000
.SelectLevel = 1
.set_SelectDate(#9/19/2006#,True)
.AllowCreateBar = exontrol.EXG2ANTTLib.CreateBarEnum.exNoCreateBar
.AllowLinkBars = False
End With
With .Items
h = .AddItem("Project")
.set_CellValue(h,1,#9/21/2006#)
.set_CellValue(h,2,#10/3/2006#)
.AddBar(h,"Summary",.get_CellValue(h,1),.get_CellValue(h,2),"sum")
h1 = .InsertItem(h,Nothing,"Task 1")
.set_CellValue(h1,1,.get_CellValue(h,1))
.set_CellValue(h1,2,#9/24/2006#)
.AddBar(h1,"Task",.get_CellValue(h1,1),.get_CellValue(h1,2),"K1")
.set_ItemBar(h1,"K1",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarMinStart,#9/20/2006#)
h2 = .InsertItem(h,Nothing,"Task 2")
.set_CellValue(h2,1,.get_CellValue(h1,2))
.set_CellValue(h2,2,#9/28/2006#)
.AddBar(h2,"Unknown",.get_CellValue(h2,1),.get_CellValue(h2,2),"K2")
.AddLink("L1",h1,"K1",h2,"K2")
h3 = .InsertItem(h,Nothing,"Task 3")
.set_CellValue(h3,1,.get_CellValue(h2,2))
.set_CellValue(h3,2,.get_CellValue(h,2))
.AddBar(h3,"Task",.get_CellValue(h3,1),.get_CellValue(h3,2),"K3")
.AddLink("L2",h2,"K2",h3,"K3")
.GroupBars(h1,"K1",False,h2,"K2",True,31,"0;4")
.GroupBars(h2,"K2",False,h3,"K3",True,31,"0;2")
.DefineSummaryBars(h,"sum",h1,"K1")
.DefineSummaryBars(h,"sum",h2,"K2")
.DefineSummaryBars(h,"sum",h3,"K3")
.set_ExpandItem(h,True)
.set_ItemBold(h,True)
End With
.EndUpdate()
End With
|
1505
|
How can I have a case-insensitive filter (exFilterDoCaseSensitive flag is not set)
With Exg2antt1
.BeginUpdate()
.Chart.set_PaneWidth(True,0)
.MarkSearchColumn = False
With .Columns
With .Add("Car")
.DisplayFilterButton = True
.FilterType = exontrol.EXG2ANTTLib.FilterTypeEnum.exFilter
.Filter = "MAZDA"
End With
With .Add("Equipment")
.DisplayFilterButton = True
.DisplayFilterPattern = False
.CustomFilter = "Air Bag||*Air Bag*|||Air condition||*Air condition*|||ABS||*ABS*|||ESP||*ESP*"
.FilterType = exontrol.EXG2ANTTLib.FilterTypeEnum.exPattern
.Filter = "AIR BAG"
End With
End With
With .Items
.set_CellValue(.AddItem("Mazda"),1,"Air Bag")
.set_CellValue(.AddItem("Toyota"),1,"Air Bag,Air condition")
.set_CellValue(.AddItem("Ford"),1,"Air condition")
.set_CellValue(.AddItem("Nissan"),1,"Air Bag,ABS,ESP")
.set_CellValue(.AddItem("Mazda"),1,"Air Bag, ABS,ESP")
.set_CellValue(.AddItem("Mazda"),1,"ABS,ESP")
End With
.ApplyFilter()
.EndUpdate()
End With
|
1504
|
How can I have a case-sensitive filter
With Exg2antt1
.BeginUpdate()
.Chart.set_PaneWidth(True,0)
.MarkSearchColumn = False
With .Columns
With .Add("Car")
.DisplayFilterButton = True
.FilterType = exontrol.EXG2ANTTLib.FilterTypeEnum.exFilterDoCaseSensitive Or exontrol.EXG2ANTTLib.FilterTypeEnum.exFilter
.Filter = "Mazda"
End With
With .Add("Equipment")
.DisplayFilterButton = True
.DisplayFilterPattern = False
.CustomFilter = "Air Bag||*Air Bag*|||Air condition||*Air condition*|||ABS||*ABS*|||ESP||*ESP*"
.FilterType = exontrol.EXG2ANTTLib.FilterTypeEnum.exFilterDoCaseSensitive Or exontrol.EXG2ANTTLib.FilterTypeEnum.exPattern
.Filter = "Air Bag"
End With
End With
With .Items
.set_CellValue(.AddItem("Mazda"),1,"Air Bag")
.set_CellValue(.AddItem("Toyota"),1,"Air Bag,Air condition")
.set_CellValue(.AddItem("Ford"),1,"Air condition")
.set_CellValue(.AddItem("Nissan"),1,"Air Bag,ABS,ESP")
.set_CellValue(.AddItem("Mazda"),1,"Air Bag, ABS,ESP")
.set_CellValue(.AddItem("Mazda"),1,"ABS,ESP")
End With
.ApplyFilter()
.EndUpdate()
End With
|
1503
|
Is it possible to add a custom label to the days with a specified background color

Dim h1
With Exg2antt1
.BeginUpdate()
.Columns.Add("Task")
With .Chart
.FirstVisibleDate = #1/1/2001#
.set_PaneWidth(False,48)
End With
With .Items
h1 = .AddItem("Task 1")
.AddBar(h1,"",#1/2/2001#,#1/8/2001#,"K1","Leave Blank")
.set_ItemBar(h1,"K1",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarSelectable,False)
.set_ItemBar(h1,"K1",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarBackColor,255)
End With
.EndUpdate()
End With
|
1502
|
What is the event fired when I change "...Chart.PaneWidthLeft" (or "...Chart.PaneWidthRight") in the Gantt splitter window
' ChartEndChanging event - Occurs after the chart has been changed.
Private Sub Exg2antt1_ChartEndChanging(ByVal sender As System.Object,ByVal Operation As exontrol.EXG2ANTTLib.BarOperationEnum) Handles Exg2antt1.ChartEndChanging
With Exg2antt1
Debug.Print( "End Operation(exVSplitterChange(10)" )
Debug.Print( Operation )
Debug.Print( "PaneWidth:" )
Debug.Print( .Chart.get_PaneWidth(False) )
End With
End Sub
' ChartStartChanging event - Occurs when the chart is about to be changed.
Private Sub Exg2antt1_ChartStartChanging(ByVal sender As System.Object,ByVal Operation As exontrol.EXG2ANTTLib.BarOperationEnum) Handles Exg2antt1.ChartStartChanging
With Exg2antt1
Debug.Print( "Start Operation(exVSplitterChange(10)" )
Debug.Print( Operation )
Debug.Print( "PaneWidth:" )
Debug.Print( .Chart.get_PaneWidth(False) )
End With
End Sub
|
1501
|
I want to ask if I can select more than one bar in the chart and move them together

Dim h
With Exg2antt1
.BeginUpdate()
.Columns.Add("Task")
With .Chart
.FirstVisibleDate = #12/29/2000#
.set_PaneWidth(False,64)
.LevelCount = 2
End With
With .Items
.AddBar(.AddItem("Task 1"),"Task",#1/2/2001#,#1/4/2001#,"K1")
.AddBar(.AddItem("Task 2"),"Task",#1/4/2001#,#1/6/2001#,"K2")
.AddBar(.AddItem("Task 3"),"Task",#1/8/2001#,#1/10/2001#,"K3")
h = .AddItem("")
.AddBar(h,"",#1/8/2001#,#1/10/2001#,"","<b>Right click</b> the chart, start dragging to select multiple bars<br>or click a bar while pressing the <b>CTRL</b> key")
.set_ItemHeight(h,36)
.set_ItemBar(h,"",exontrol.EXG2ANTTLib.ItemBarPropertyEnum.exBarSelectable,False)
End With
.EndUpdate()
End With
|